The Mousetrap 
For HTML Designers 

1. Audience and Scope 

This guide is for those familiar with HTML but not with SML or JavaScript. It will allow 
taking an existing mousetrap and modifying it so it can be applied to a different site. 

2. Operation 

The first two sections of The Mousetrap Programmer 's Guide can be read by a non- 
programmers for a description of the mousetrap mechanism. "The Mousetrap Effect'* 
describes the action of the mousetrap from a user's point of view and "Operation 
Overview" discusses the sequence of events which occur when the browser's back button 
is pressed or a link is clicked. Also, check the "Mousetrap Flow Drawing" on page 1 6 to 
see how a mousetraps flow works. 

3. Mousetraping In A Nutshell 

In a nutshell, to apply the mousetrap to a non-mousetrap sales site, do the following: 

1 . Copy & rename the necessary files (section 7). 

2. Make sure the ..._tail.htm file copied from above has the proper directory for the 
legal section (see end of section 6). 

3. Insert the proper file names in the fi:ameset page (section 5). 

4- Copy the SML at the very top of the page and JavaScript between the </title> and 
</head> from parallel pages in a moxisetrap (for example, copy the SML and 
JavaScript from the Sex Museum soflsales page to the new softsales page. 

5. Make sure all links in parallel pages have the JavaScript (onClick, onMouseOver, 
onMouseOut) and SML tags (including the feeders on the links to the registration 
pages). 

6. Copy the SML conditional for the button/submit-button on the registration pages from 
mousetrap registration pages (see section 8.4). 

7. Perform the tests in the "Testing" section (page 1 1). If there are problems, go to the 
"Troubleshooting" section (page 13). 




IMPORTANT NOTE: When copying anythmg from an existing mousetrap to a new 
mousetrap, load the existing mousetrap file in your editor to copy data. DO NOT COPY 
BY VIEWING PAGE SOURCE IN YOUR BROWSER. SML COMMANDS WILL 
NOT BE COPIED. 
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4. Copy Files 

The first step to brewing up a mousetrap is to copy files from an existing mousetrap to the 
new mousetrap directory. If we were copying from Sex Museum, the following files 
would be copied: 

1. mmuse index.sml 

2. mmuse_hiddenl.sml 

3. mmuse_hidden2.sml 

4. mmuse_tail.htm 

We would then rename them appropriately. For example, for Video Sex Channels, the 
frameset page might be renamed "mvsc index.sml". 

5. The Frameset Page 

Various file names need to be entered in this page to customize the mousetrap to a 
particular sales site. 

This page typically ends in "index.sml". For example, Sex Museum's frameset page has 
the filename of "mmuse index.sml". 

5.1.1. Warning Page 

At line 5 of the frameset page, the following needs to have the file name entered for the 
warning page: 

<$if cond:!.goTo val:.goTo='mmuse_waming.smr><$endif> 

The above setting is used for the warning page in Sex Museum. 

5.1.2. defaultStatusMsg 

This constant needs to be set with the message desired on the bottom of the browser's 
window. The following default message was used for Sex Museum: 

defaultStatusMsg='Welcome to Sex Museum'; 

5.1.3. Hidden Pages 

Two constants must be changed to reflect the file names of the hidden files. For example, 
for the Sex Museum, the following names are used: 

I* 

hidden1="mmuse_hidden1 .sml"; 
hidden2="mmuse_hidden2.sml"; 

Also note that the hidden! file needs to be set in the fi-ameset definition itself at line 84. 

5.1.4. Netscape 2 Kludge 

The default WarpTo constant is used because of a problem with Netscape 2. The 
following line needs to be set to the "warpTo" value in the first sales page (the page you 
come to after you click the "Enter" off the warning page). 

defaultWarpTo="mmuse_survey.sml 
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6. Warning Page 

This page contains 4 lines of JavaScript that will occur on all pages (except the 
registration pages). ^ ^ 

parenLbackTo='mmuse_softsa!es.smr; 
parenLwarpTo='mmuse_softsaIes.sml'; 
window.defaultStatus=pafBntdefaultStatusMsg; 
parenLloadPageO; 

The "parentbackTo" needs to be set to the page you need to go to when the user hits the 
Wer s back button. The "parent. waipTo" needs to be set to the page you need to go to 
when the user tnes to go to a new location via bookmarks, histoiy li^ 'or'typing in a new 
URL. ^e "window.defaultStatus" line sets the default of the browser's sta^ line to 

defaultStagusMsg value set in the framesei page. The last line runs the "loadPageO" 
method m the parent which loads a file into the hidden frame. 

All links on the warning page need to have the following line in them: 
OnClick='parenLclicked(this)" 

In addition, a mouse over message can be associated with the Imk by adding the 
following JavaScript to the link: 

OnMouseOvef^'fBtum parenLsetStatusfl agree")" 
OnMouseOut="retum parenLsetStatusO" 

Tlie footer also needs to manually be added to the warning page and every other page in 
the mousetrap. For example, the following is used on Sex Museum: 



<#INC."d:/http/sexmuseuiTi/mmuse_tail.htm"#> 
<table width=610 border=0> 
<tr> 
<td> 
<ul> 

<pre><#MAC.NBHOST#></pre></font> 
</ul> 

</ld> 

</ti> 

</lable> 

</HTML> 

<$exit> 



The line with "d:/http/sexmuseum/mmuse_tail.htm" would change with another site For 
example, at XXX Sex Photos, the line would change to 
"d:/http/xxxsexphots/mxsp_tail.htm". 
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7. First Sales Page 

<#MAC.vlsll#> 

TOs f^ge has the same JavaScript as the warning page except thai the following line is 
pafBntenterClicked=true; 

This is a variable to let other pages know that the user has clicked the "Enter" key. 

As discussed in the warning page, links to the "age verification" or registration pages 
need to have the following JavaScript: -""n pages 

OnClick='parenLclicked(thl$)' 

TTie SML feeders need to be coirect on these links as well to ensure proper statistics The 
following IS a correct feeder example from Sex Museum: 

feedepMMUSE_sales_1_Liv6-<#MAC.NBH0ST#>&<#SID=.#>&bld=<#.bic»> 

The link to the members and webmaster areas need to have the following in order to 
remove the frameset when entering these areas: 

target="Jop"OnClick='parentclicked(thls)' 

Again, all links can make use of the mouse over events for links: 

OnMouseOver='retum parenLsetStatus('Members Enter HereV 
OnMouseOut="retum parentsetStatusf)' 



Mousetrap For HTML Designers 02/17/98 



Page 4 



8. Registration Page 

8.1. SML 

TTie SML for this page should be copied from an existing mouse trap registration page: 
<$assignval:SID.mm='apps.xpics.com"> 

<$if cond:.ftiee!=CHECKED cond:.mall!=CHECKED val:.m90=CHECKED><$endi^ 
<$if cond:.bid val:.acb=.bid><$endif> nt:uf\cu?<;^.nart> 

The second line above sets the default membership to the 90 Day membei^hip. 

8.2. JavaScript 

The JavaScript for this page is different than previous pages: 

<script language='JavaScripr> 
<!- Script start 

varisSent = 0; 

parentnewWin=true; 

function load() 

^ window.defauttStatus=pafenLdefaultStatusMsg; 

ftinction SubmitData( form ) 

parenLnewWin=false; 
if(!isSent) 

{ 

isSent=1; 
fonm.submit( ); 

} 

// Script end -> 
</script> 

8.3. Membership Codes 

The following three lines are specific to each site: ' 

<1ZJ wp^'^^'^^mJI^? VALUE=-SEXM-FR- <#.free#» 

<INPUT TYPE='radio' NAME='PARM13- VALUE="SEXM.90" <#.m90#» 

5^X fev phT ^^."S^^'^-^^^" ^I^ific to Sex Museum. For example, the lines in all 
XXX Sex Photos registration pages are the following: "nesmaii 

<INPUT TYPE=W NAME=TARM13" VALUE="SEXRXX-90" <#.mS» 
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8.4. Submit Button 

The submit button needs to look something like the following: 
<$ifcond:SID.js> 

^jJ^R^^ip* l!ipe=-siihnir vatae^-Submil Infc^ 

to! tl "^f O be used on a mousetap registmion pages 

9. The Second Sales (Survey) Page 

This page has a fonn on it and has JavaScript which should be copied from another 
survey page Currently the information entered in the survey is bekg thi^~rin 
development, we have a survey page which will store data in SQL Server We^n 
descnbe these two variations and their setup: 

9.1. Data Not Stored 

^T^f^X'!:;:^"^ '"^^ "^^ '""^ <^ '"'•^^ li-es a. used „ea. 
1. <form nanie='qFonii" method=post action='mmuse_allsites.sml'> 

?' ^SSjft^?" name="feeder- value=-MMUSE_survey-<#MAC.NBHOST#>-> 

3. <inpiit type=hidden name='referer' value='<#SID.referBr#>'> 

4. <inpijt type=hidden name='bid" value="<#.bid#>"> 

The first line above needs to have the appropriate "allsites" registration page For 
example, for XXX Sex Photos, the line should have action=4xsp_aIlsitf smr. 

^u'i'Ctlp' '^'"^"^ ^"Z"^" "P^'^P""'" ^ Sex Photos, it would be 

value- MXSP_survey.<#MAC.NBHOST#>". Tho remaining lines would not be altered. 
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9.2. Data Stored 

1. <fomi name=-qFofm' melhod=gel «fion='hltpy/apps.xplcs.(»m/cgi-bl^^^^ 

a" <£^t5?" "^"^=7^'' value=-MMUSE_survey-<#MAC.NBHOST#>-> 

3. <inpiit type=hidden name="referer' value="<#SID.refefBr#>'> 

4. <inpijt lype=hidden name="bid' value="<#.bid#>'> 

5. <input type=hidden name="table_nanie' value="survey fBsponse'> 

6. <input type=hidden name='redirecr value=-httpVywww.iexmuseum.a)m/mmuse_d^^^^^ 

^h.'^'^^i^cf ^""^ appropriate' feeder. For XXX Sex Photos, it would be 

TT^ sixth line above needs to have the foil URL of the appropriate "allsites" registration 
page. For example, for XXX Sex Photos, the line should have value='» 
littp://www.xxxsexphotos.com/mxsp_alIsites.smr. 

The other lines don't need to be altered. 
10. The AUsites Page 

After a user has filled out the survey page and submitted it, they will be directed to the 

sites reg.stratu>n page. Using SML conditionals, this page is responsive, de^nlg on 
the answers to the questions in the survey page. .ucpenaingon 

Nothing in this page needs to be customized for a particular site. 
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11. SoftSales Page 

a'^o^ilt ^''''''J:'!''^ the warning page, they will get presented 

TT.e '"'^"^ P^Se are softer than those in the sales 

page. The JavaScnpt in this page shows a variation over the regular sales page. 

If the user presses the back button at the softsales page, they would normally go to a 

to our Warning without a banner ID (a small percentage) they may be under age Z we 
don t want them to go to the bamiers page. For this reason, the JavaScript on AeToLes 
page IS different than the regular sales page. "Pi on me sonsales 

if(pafenLacb=="") ; 

parent.backTo=-htlpV/198.168.54.139/lhn1lK5i/ad^ 
parentwarpTo='httpV/198.168.54.139/thn1kg^^^ 
parenLbackToTop=tnje; //blow away frame ' 

else 
{ 

parenLbackTo='mmuse_bannefs.sml'; 
^ parenLwarpTo="mmuse_banners.smr; 

window.defaullStatus=parent.defaultStatusMsg- 
pa/enLtoadPageO; 

S^nniln ^ "^^"^""^ ^ ^"^^^ *° CyberThrill. If they do have a 
' P"^^ (nimuse_bamier3.sml). These lines could change 

depending on who we are directing potentially underage users to. 

WARNING: MAKE SURE THE FIRST LINE ON THE REGULAR SALES PAGE- 
<#MAC.vislt#> 

IS NOT ON THE SOFTSALES PAGE!!! 



S 
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12. Banners Page 
12.1. Links 

All links in the banners page need to have the following: 
Target='Jop'OnClick="parenLclicked{this)' 

For example, a link to the ass website could look like the following: 

<a hre^-http://wvw.xpics.a)m/ass/ass.hW^ 
OnClick='pafientclicked(this)*> ^ 

12.2. JavaScript ^ 

This is the last stop in the mousetrap before the mousetrap is exited. We have two 
vanations m the JavaScript for the banners page: 

1 . The i^er always gets directed to CyberThriU (or another PG rated website) with a 
back button or warp. ' 

2. If the user has hit the enter button and is backing up from the survey page thev can 
directed to the sales pages of another Xpics site wiSi a back button ifthe user 
has backed off from the warning page (and gone to the softsales page) th^irger 
directed to CyberThriU (or another PG rated website) with a back button or Zp' 

12.2.1. Always Directed to PG Website 

button ofwS^-^''*'^ "^'^ ^^"^^^^ ^'"^^ ""^^ ^ CyberThriU site with the back 

<SCRIPT LANGUAGE="JavaScripr> 

parent.backTo="http://198.168.54.139/thrill^i/ad/xpl^^^^ 

parBn.wafpTo="http://198.168.54.139/thrilkgi/ad/xpi^^^ 

parent.backToTop=lrue; //blow away frame ' 

window.defaultStatus=parent.defaultStatusMsg- 

parent.loadPageO; 
</SCRIPT> 
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12.2.2. Not Always Directed to PG Website 

fli »teS^„'*'T ''i'^' Cybernrill site if ftey Imve not clicked 

Uf^r^t ? ""^ I"™"'' 8»"» "> ">« fi"' page). If tliey have 

VM^. *'f '° "non-mouset^p" sSe! page S 



<SCRIPT UNGUAGE="JavaScripr 
tf(!pafBntentefClicked) 



parent.backTo=-htfp7/198.168.54.139/lhn1kgi/a(l/kpic^ 
^ parenLbackToTop=tnje; //blow away frame k . 



else 
{ 



MMUSE_banne(S.sml-<#MAC.NBHOST#>"; 

MMUSE_banners.sml-<#MAC.NBHOST#>'; 
^ parentbackToTop=tme: //blow away frame' 

window.defaultSlatus=parentdefaultStatusMsg- 
parentloadPageO; 
</SCRIPT> 
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13. Testing 

TTie mousetrap needs to be tested thoroughly before it is put live. After the mousetrap has 
been completely setup, testing can start. mousetrap has 

13.1. Get a Link To The Mousetrap 

Put a test bamier or link (with a test banner ID) that can be clicked on to jump to the 
mousetrap fmmeset page. Ideally the page with this link would be on another server This 
link wil be used to check if the referer is being passed properly through to ^^^^^^ 
passed to the registration page. * 

t^J'^UAl: ^''"'''^"^ ^^"^ """"^ '''' development sites in a computer 
13.2. Test All Links 

Every link on every page needs to be tested. Make sure that the frameset is blown away 
(and without generating a new window) where the link has target=Mop" in it. 

Be sure to check the links on one of the footers, the bamiers page, registration pages sales 
pages (including the member area and webmaster area). ^ ' ^ uon pages, sales 

In other words, check all links on every page! 

13.3. Test Back & Warp on All Pages 

Go to each page and hit the back button to verify that the "parentbackTo" gets loaded 
Go to each page and out. You can do that my simply re-loading the frameset page. 
When you warp, you should open a new browser window with the proper page loaded in 
It. 1 o test the next warp, you have to close the new window. 

To test the softsales page back/waip. you will have to load the frameset page both with an 
ACB banner ID and without one. If you arrive with a bamier ID, you will back/waip from 

^ot r P P^f.?- ' ^^^^ ^" ^yP^^ bamiers p^e and 

go to a GP rated type site (like CyberThrill). 
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13.4. Verifying That Parameters Are Passed 
Using the link created in section 13.1, elide to the frameset page (this creates a referent 

SreSrr""''""'^™"'"^''^^'"'''^'"'*'^ 

^t'^liRM^f'^Sr' '^'^ ^ '"P"' -"h 'he names of 
rAKMO, PARMl 8, and PARM22 as shown below: 

<S5f 'S?"" name=-PARM6- value="http://kauai.sbusiness.conViump htni-> 
<inpu^ type=jKlden"nafne=TARM18"value=-MMUSE salesi Uve-S sen/«6.> 
<inptit type=-hidden- name=TARM19" value=-NEW> " '-"^^"^-^^"^^ > 
<input type='hidden;' name='PARM22' value='acb100002-60000"> 

sSl^t^;h?H Tfl' ""^ in 

section 1 3. 1) on the domain of "kauai.sbusiness.com". 

H^k^n ' *f ^'Z"^'' ^* ^P^^' '^««"- If there are multiple 

h^lT f P'^'V*^' '^^"^^ ^h^^*^ ""1^ came from. For eXle 

^how^"Ttt"""''"™^"r^^ 

bMows . The page was served up from *'xpics_server6". 

PARM22 is the banner ID passed to the frameset page when it was fn^t loaded. 
These above three parameters must be present and functional. 
13.5. Register Somebody 

Using a test credit card, register a fictitious person (ask Gene to set up a test credit card) 
Register somebody once from every registration page, selecting different mem^ Wof 
Put your sbusmess email address in the registration page so we can locate dl"^ 

A:::Sr^at^ 

http://admin.xpics.com/xpl/admin/ 



1. Name 

2. Feeder 

3. Referrer 

4. Membership type 

5. Bamier ID 

6. Credit card & expiration 
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14. Troubleshooting 

Tle« ^^variou. simple ttoubtehootmg ,00b and ,echm,ues available .0 quickly isolate 
14.1. PARM6, 18, or 22 Missing 

K°;S,tr^rolf' me ^0^6 i„ .he 

htlp://v™w.sexnuseun.a)mMirruiscjndex.srr« 

le "to " "»l?acb=aobl00002;60000" pa«„cter appended .o d,e URL of 
14.1.1. Check The Warning Page 

With the warning page in the main frame (and using Netscape 4) right click anywhere on 
foL^?' "'"^ '""^ ^^-^^ - something h'i^e " 

hHp://wvw.sexmuseum.com/mmuse_wamlng.sml?SID^)38^^ 

u"^^ T ^'"8 P^8« o« Sex Museum TTiere 

should be a number after the "SID=". Then the «bid=" should be following by the test 

"a^e^:^^^^^^^^ 

14.1.2. Check the Sales Page URL 

Click on the Enter button and load the sales page. After the sales page is loaded right 

yI T^^"'" ™^ P"^^ ("^'"8 N^^^P^ 4), and select "View Fn^e Info" 
You should see something like the following: ' 

httpy/www.sexmuseum.com/mmuse_waming.sml?SID=^^^ 

As in the warning page, you should see a number after the «SID=" and the bamier ID 
should be after the "bid-. If this is incorrect, there is a problem on the "Int^HnL on 
the warmng page (probably SML). 
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14.1.3. Check the Sales Page Links 

2(^k S I- VV^?'''''''''' "^''^ ^'^^ P^g« frame source) 

example, m Sex Museum, the link to the "Live Shows" looks like the following: 

^CM-^^^7rJrl '"^7'^" ^ P^^^"^ Also the 

Micfc^aren^^ needs to be present OnMouseOver and OnMouseOut are optional. 

14.1.4. Check the Registration Page ^ 

If the above all checkout, the problem has to be in the registration page. Verify in the 
registration file the following is correct: cniymme 

<input type='hidden' name=TARM6" value="<#SID.referer#><#SID tracked#>"> 
<input lype="hidden' name="PARM18' value="<#.feeder#>"> 
<input type='hidden" name="PARM19" value=*NEW"> 
<lnput type='hldden' name='PARM22' value='<#.bid#>"> 

14.2. Back or Warp Is Doesn't Work 

Change the frameset definition to the following: 

After re-loading the frameset page, you will see a 40 pixel window at the bottom of the 
screen. It shows the hidden2 file which has the "backTo" and "waipTo" variables You 
can venfy that these variables are correct for each page. For example, from the warning 
page, these vanables should be set for the softsales page. 

If the mousetrap mechanism is working properly, the small window at the bottom (the 
hidden frame) should change from the hiddenl page to the hidden2 page with each link 
chck and browser back button press. If it doesn't, check die JavaScript between the 
</title> and «^ead>" and the "OnClick=..." JavaScript on suspected link 
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15. Esoterica 
15.1. Hosts File 

When editing on a seiner that has multiple miirors, the only way to guarantee getting to 
go to Ass on xpics_serverl ", you would enter the following URL: 
http:/y208.215.61.5/ass/massJndex.sml?acb=acb100()02-6()0()0 . 

t^T'V^ ^'"^^"^^ ^' ^'^'"^^^'^^ t° «bove is to open up the "hosts" 

fSl\ i» NotepVd (i/you cT' find 

the file there, just use "Find" off the "Start" button to locate the "hosts" file): 

winnt\system32\drivers\etc\hosts ' 

WiA Ae foUowirig entries in your hosts file, every time your browser requests 
add^^^'''^''^"' * example, you will automatically get directed to the 208.215.61 .5 IP 

127.0.0.1 localhosl 
208.215.61.5 www.xpics.com 
208.215.61.12 www.sexmuseum.com 
208.215.61.11 members.sexroulette.com 
208.223.222.18 www.vjdeosexchannels.com 
208.223.222.31 www.xxxsexphotos.com 

15.2. Starting the B/Iousetrap On a Non-Warning Page 

The Mousetrap normally starts on the warning page. As discussed in section 5 I 1 the 
warmng page filename is set in the frameset page. ^-i -i, tne 

ttTllZing U^: " ""'"''"^^ ^""^ ^"^P^^' ^"^^^ 

htlp://www.sexmuseum.corn/mmusejndex.sml?acb=acb1()0002-6()()0^ 

Aew^If/"^ '"'"'''"^ "^'^ P'^' ^"^"^ ^^^^'^P instead of 

This might be used when leaving backing/warping from tiie bamiers page and 
enterChcked" is true (see section 12.2). 
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The Mousetrap 
Programmer's Guide 

1. The Mousetrap Effect 

ho^l^t. T^u Tl "^^^ *° P'-^^'^"^ P^- "•mousetrap" 

however has the ab.hty to redirect a user to a new URL when the back button is pushed. In 
addition if the user "warps" (change location via bookmarks, history list or typing in a new 
UKL), a new browser window opens. 

Lets look at a few senarios: 

1 . The user comes to the "Warning" page and hits the back button. They do not return to 
their previous URL but instead see a "soft" sales page (the photos are softcore) If 
they hit the back button again, they end up on a banners page. If they now decide to 
warp by going to their bookmarks, they will go the location they "warp" to but they 
will also open up a new browser which will overlay the waiped-to browser window 
with yet another sales page. 

2. The user comes to the "Warning" page and hits the enter button to go to a sales page 
From the sales page, they click on a link and enter an age verification page. They do 
not have a credit card and decide to "warp" to a new location. Their browser opens up 
a new window with a "survey" page on it. They close the window with the survey and 
discover that the placed they warped to is now displaying in their original browser 
window. 

3. The user comes to the "Warning" page and hits the enter button to go to a sales page 
From the sales page, they hit the back button but instead of going back to the warning 
page, they see a "survey" page. If the user fills out the survey, they will get a free 
subscription to all sites. They fill out the survey and see the age verification page 
registration page. They fill out the form and enter the members area. 

2. Operation Overview 

The core fimction of the mousetrap is achieved through the use of a hidden frame and 
JavaScript. All pages in the mousetrap are displayed within a frameset which has two 
frames, a frame named "main" which fills up 100% of the frameset and a frame named 
hidden" which is indeed hidden. 

When the user clicks on a link (like the "Enter" on a warning page), the main frame (no 
pun intended) is loaded. While the browser is loading the main frame (with a sales page) 
it starts to execute the JavaScript on the sales page. This JavaScript runs the "loadPageQ" 
function which then loads into the hidden fiame, the "hidden!" page. The "hidden!" page 
then executes its JavaScript which then loads the "hidden2" page. 

To install a Mousetrap, vou must read "The Mousetrap for HTMf. Dftgip n^r^;" 
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This is the sequence of events for a link click: 



Link Click Events (Click Enter on Warning Page) ^ 



Event# 
1 
2 
3 
4 



Description 

Click Enter on Warning page 
Load Sales 1 Page 
Load Hiddenl 
Load Hidden2 



Fram eset 

main 
main 
hidden 
hidden 



JavaScript^ 
parent.clicked() 
parentJoadPageO 
loadPageO (in hiddenl) 



Notice tiiat the last page loaded in the browser's histoiy list is the "hidden2» page 
(hidden! and hidden2 are frameset variables.which hold the URL's of the documents 
loaded mto the "hidden" frame). 

Wh^n the user presses the browser's "back" button the hidden2 page is unloaded and the 
hiddenl page is loaded. The hiddenl page nins it's "loadPageQ" function which then 
loads a page into the "main" fiame. The user will not retum to the warning page but 

ir^i"^ l'"" ^ "^'^ ^" fi^^- Sales2 page will then load 

the Hidden2 page into the hidden frame: "'cnioaa 

This is the sequence of events caused by pressing the browser's back button: 

Back Button Event (Backing from First Sales Page)^ 

^^^^ Descrip tion Frameset JavaScript' 



1 
2 
3 
4 



Browser's back button clicked 
Load Hiddenl 
Load Sales2 Page 
Load Hidden2 



hidden 

main 

hidden 



loadPageO (in hiddenl) 
parent.loadPage() 



From the second sales page, if the user decides to "waip" by going to Yahoo via a 
bookmark, the frameset page itself will unload. When the frameset unloads its 
onUnioad" event causes the execution of its "unloadQ" function. This flinction creates a 
new window with yet another sales page in it (perhaps a page of banners). 

This is the sequence of events caused by "waiping" to Yahoo: 



Jumping to new URL via Bookmark^ 



Event# 
1 



Description 



Frameset JavaScript' 



Original window loads Yahoo main 

New Window loads hiddenl page hidden 

and banners page main 

Load Hidden2 hidden 



frameset's "unloadO* 
parent.loadPageQ 



Mnlf o' ^.If* ? ® o®"*^' "hidden2- page is currently in the -hidden" frame. 
Note 2. This IS the JavaScnpt function which Initiates the next event. 
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3. The Details (Overview) 

The next three sections explain the functions and interactions of the frameset, main, and 
hidden pages. See Appendix A for flowchart drawing of Sex Roulette sales site (as of 
February 9, 1998), 

This section assumes a familiarity with SML (see SML for Dummies at the following 
URL: http://kona.sbusiness.com/sml_for_dummies/). This section also assumes 
familiarity with JavaScript. 

Note: The mousetrap mechanism allows the normal use of sales pages if the browser has 
JavaScript turned off or is not JavaScript enabled It is even possible to access the sales 
pages if the browser is not "frames " enabled. In these cases, the back button will operate 
normally. ^ 

Netscape 2 executes the back button at the frameset level and removes the entire 
frameset. This means that the ''back" button acts like a "warp *' in Netscape 2 

4. The Frameset Page 

The frameset page contains the JavaScript functions and variables accessed by the various 
pages loaded into the "main" and "hidden" fiames. The beauty of fiameset level 
variables, is that state can be maintained between pages. Typically this page is named 
something like "mmuse__index.sml" or "mass_index.sml" (the first "m" stands for 
mousetrap). 

We will go through the fiameset page line by line and provide conmients. 
4.1. The .goTo and .startAt SML variables 

Normally the warning page is first loaded when the mousetrap starts up. However, the 
following URL would allow the starting at another page: 

http://www.sexmuseum.com/?startAt=mmuse_salesl.sml 

The first of the following lines allows that to happen (they must be in this order): 

<$if cond: .StartAt, cond: ! .goTo val: .goTo=*startAt><$endif> 
<$if cond:!,goTo val; .goTo="inmuse_warning.sml"><$endif> 

It might be easiest to examine the overall effect of the these two lines by looking at the 
"goTo" defined condition: 

Conditionl - goTo not defined: If "startAt" is defined, "goTo" is assigned to it. 
Otherwise the warning page is loaded, 

Conditionl - goTo defined: When the user warps, a new window is opened with a URL 
that may look like the following: 

http://www.sexmuseum.com/?bid=acb100002-60000&goTo=mmuse_survey.sml 

The "goTo" variable is used to in the frameset definition to load a page into the main 
frame. 
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4.2« The .acb SML variable 

Typically the sales sites are entered through the clicking of a banner. That banner includes 
in its URL a parameter to identify the person and banner. The following URL will load 
the sex museum sales page: 

http://www,sexmuseum,com/?acb=acb 1 00001 -g 1 400 

In the "acb" parameter (ad campaign banner), the 100001 is the advertiser number and the 
gl400 is the number corresponding to a particular banner. 

Raw hits are assigned to an advertiser whenever the server notices a page loaded with the 
"acb" parameter in the URL. With the following line: 

<$if condr.acb val : .bid=.acb><$endif> 

If the .acb variable exists (not everyone comes from a banner), the SML variable .bid is 
assigned to its value. On subsequent pages, the advertiser number is passed by appending 
the following to the URL: 

?bid=acb100001-g1400 

We don't want to append "?acb=acbl 00001 -gHOO" because this could inadvertently 
cause another raw hit to be assigned to the advertiser. 

4.3. Constants 

4.3.1. defaultStatusMsg 

Each page sets the default message by loading the following variable: 
defaults tatusMsg="Welcome to Sex Museum"; 

4.3.2. Hidden Frame Pages 

The hidden frame gets loaded with the URLS of the following variables. 

hiddenl="inmuse_hiddenl .sml"; //Change in frameset definition too 
hidden2="mmuse_hidden2 . sml"; 

Note that the URL at hiddenl must also be set in the frameset definition. 
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4.3.3. defaultWarpTo 

pS^T ^''''^^ ^ ^ p""'"' ^'^^ ^"^"^ 

T^"'*^''"^ P"^"' ^ ^^^^^ ^Jff^^^^t ^'es pages (the 
sofl^Ies and regular sales pages may use the same registration pages). BecaL of tiiis 
he registration pages do not re^lefine the "waipTo" or "backTo" variables and do no 'run 
Ae p^ntJoadpageO fimction as well. Uis allows a noi^ "back" browser function to 
occurs and the user can return to the previous sales page. 

WiA Netsca^ 2. if someone warps out of a registration page, the parent.warpTo variable 
a)ntains garbage If there is garbage in the "warpTo" variable, the "default^xrvdue 
IS used instead. This variable is used in the ^WoadO" function (see section 07 

4.4. Variables 

Each page loaded into the "main" frame sets the window's "defaultStatus with the 
rollowing variable: 

4.4.1. window.defaultStatus 

This sets the default status message for the current window, which is the frameset page. 

4.4.2. acb 

The following loads the "acb" variable with the current banner ID: 
acb ="<#.bid#>"; 

This variable is checked in the softsales page to decide whether to send the user to our 

iT^r^^' ^ u "^^'I^ ^'^^ ^"^^^^ "^^Pl^' have a bamrer ID 

and they may also be under age so they are not sent our bamiers page. 

4.4.3. backToTop 

lUZ^^^^'^u ^ "^^y * ^tWn the current 

frameset. The followmg line sets this default: 

backToTop=false; 

In the "bamiers" page, however, this variable is set to true (parent.backToTop=true) This 
allows the user to back out of the bamiers page and totally exit the mousetrapTthe 
frameset page gets unloaded and replaced with a new page (the mousetrap's last gasp) 
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4.4.4. IinkClicked=false 

When a linked is clicked this variable is set to true. 

t?/«^Zr'?.^^''''^^'S ""^ P^es varies, depending on 

t J u.- "cIicked(aLinkr fimction^d u^d 

in a function defined in this section ("loadPageQ") and in the hidden 1 page. 

4.4.5. warpTo="" 

This variable is set by the various pages loaded into the main frame. If the user tries to 

ir^t^h. npr /n ^-^ ^'^^ "^t. o^ust typing in a URL. the user will 

end at the URL/file pointed to by this variable. 

4.4.6. newWin=true 

TTie setting of this variable determines if we should create a new window at waip time 
Ilus IS normally set to true except when the submit button is clicked on the registration 
page. After the submit button is pressed, the user may get presented with a page that has a 
link to the members area. This link has the 'target=»_top'" attribute and we don't want to 
create a new sales window when the frameset is blown away as the user tries to enter the 
members area. 

4.4.7. tinieriD=false 

This variable is used in the "setStatus(msgr Unction to indicate if a timer is running. 

4.4.8. firstPageLoaded=false 

This variable is used and set in the hiddenl page. Normally hiddenl would load hidden2 
but thefirst time hiddenl is loaded, hiddenl does nothing because this variable is set to 
lalse. This allows the first page loaded into the main frame to load hidden2 and thus 
guaranteeing that hidden2 will load after the first main frame page. 

4.4.9. enterCncked=false 

This variable is currently used on the Sex Museum site. It is set to true on the 
"mmuse survey.smr' page. If the user gets to the survey page and then hits the back 
button, they will end up on the bamiers page. It is also possible to get to the bamiers page 
by hitting the back button from the warning page. For users who have gotten to the 
bamiers page and have clicked "Enter" on the waming page, we drop them into the sales 
pages of another site. 
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4.4.10. initialLocation 

The following initializes the initialLocation variable: 

i=locat ion . href . indexOf ( " ?acb=" ) ; 

if (i==-i) initialLocation = location. href ; 

else initialLocation = location.href. substring (0,1) + ""'bid" + 

location. href. substring(i+4, location. href. length); ' 
TOs variable is used in the "unloadO" (see section 0). Basically the above lines change 
the acb parametername in a URL to "bid" if the "acb" exists. 

For example: 

http://wvvw.sexmuseum.com/mmuseJndex.srfjl7acbsacb100002-60000 
becomes: 

http://www.sexmuseum.com/mmusejndex.sml7bldsacb100002-60000 
If the user warps out and a new window widi a new frameset is loaded, we need to change 
acb to "bid" because it might be possible to give another payed click to the same 
advertiser (the server looks for "acb=acb..." in a URL to assign a visit to an advertiser). 

4.5. The Functions 
4.5.1. function unload() 

This function runs when the frameset page is unloaded caused by the user attempting to 
warp away from our sales site, 

if ({warpTo.indexOf (".sml") l)&&(warpTo.indexOf (••.htm")== -i) 

&& (warpTo.indexOf ("http") == -l)) warpTo = defaultWarpTo; 

The above lines are used to get around a limitation in Netscape 2 JavaScript. Variables set 
in the frameset (parent) page are not retained when a new page is loaded into the main 
frame. See "defaultWarpTo" in section 4.3.3 for more information. A corrupted 
jVaipTo" is detected by checking to see if it has the ".sml", ".htm", or "http" strings in 

if ( (window. name != "newWindow") && newWin) 

A new window will only be created at warp time if we are not already in a new window 
and the "newWin" is true. We only create a new window at warp time only once so the 
user can leave the sales site the second time they warp out. 

{ 

if (backToTop) 

window. open (warpTo, 'newWindow' ) ; 

If "backToTop" is true, the frameset page will be replaced with the URL indicated by the 
"waipTo" variable and we will have exited the mousetrap. 
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else 
{ 

if (initialLocation.indexOf ("?") == -i) 
initialLocation=initialLocation + "?"; 
else initialLocation=initialLocation + "4". 
^ wxndow.open(initialLocation + •goTo=' + wa^pTo, -newWindoW ) ; 

kSdfa'!^ ♦ "u"^ fee if 'InitialLocation'' has a "?". if not it adds one, otherwise 

tZ L T.'^'^^^ ^ the "goTo" parameter appended 

to the end ofthe initial frameset's URL. ^ 

4.5.2. function clicked(aLmk) ^ 

This function needs to run every time a link is^clicked. Every link should invoke this 
method via the "onClick" event. ""^^ mis 

linkClicked=true; 

if (aLink. target 4& (aLink. target. indexOf( • top') == on 
newWm = false; * _ f ' ^) ) 

m fimction sets "linkClicked" and then checks to see if the link's target attribute is set 
/« - i . ' * *° ^'^^e a new window when this link is clicked 

( newWm is used in the "unloadQ" function [see section 0]). 

4.5.3. function setStatus(msg) 

This function is called from within all pages that wish to set the status message when the 
user places the mouse pointer over a link. wncnine 

top. main. status=msg; 

if (timerlD) clearTimeout (timer ID) ; 

rf turn\rue ' ' ^ status=' • ",5000) ; 

The tirner function is used because hitemet Explorer does not support a onMouseOut 
event. The timer will automatically clear the status message afler 5 seconds. If the timer is 
runmng when this function is entered, it gets initially cleared before being set again 
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4.5.4. function loadPage() 

This function along with the function in hiddenl contain the logic to control the back 
button s action. 

if (ifirstPageLoaded) (setTimeoutCloadPageO ',500) /return} 
The warning page is the first page to call "loadPageQ." If hiddenl has not been loaded 
(indicated by firstPageLoaded" being false), the warning page cannot load hidden2. We 
want to be sure that hiddenl has been loaded before hidden2 is loaded (otherwise there 
will be no browser history of hiddenl preceding hidden2). 

The above code starts a cycle of calling the "loadPageQ" (i.e. calling itselQ every 
second until hiddenl is loaded. Once hiddenl. is loaded (and it sets "fiistPageLoaded to 
false), loadPageQ" can continue to the next section: 

if (.'parent. linkClicked) 

parent. hidden. location. href =hidden2 + "?<#SID= #>"• 
else * ' 

parent . hidden . location . href =hiddenl + " ?<#SID= . #>&bid=<# . bid#> " ; 
In the first case, "linkedCIicked" is false. This means that the current page in the main 
frame (the one calling this function) was not loaded through a link click. That is it was 
was loaded by the 'ioadPageQ" function in hiddenl (which means the browser's back 
button was pressed). Therefore the hidden2 must be loaded in the hidden frame See 
"Operation in a Nutshell" page 1 for details in the sequencing of a browser's back button 
press. 

In the second case, the current page in the mam frame (the one calling this function) was 
loaded through a Imk click. This means hiddenl must be loaded in the hidden frame 
Hidden! will then load hidden2. See "Operation in a Nutshell" page 1 for details in the 
sequencing of a link click. 

4.5.5. Frameset Definition 

The frameset definition sets up a page with two frames, one taking up 100% of the 
frameset and the other taking up the remainder (which is nothing so the frame is hidden). 

<FRAMESET ROWS="100%, *" SCROLLING=no BORDER=0 f raineborder=no 
fraraespacing=0 onUnload="unload { ) "> 

<FRAME SRC="<#.goTo#>?<#SID=.#>&bid=<#.bid#>" NAME="main" 
SCROLLING=auto BORDER=0 f raraeborder="0"> 

<FRAME SRC="inmuse_hiddenl . sml?<#SID=. #>&bid=<# .bid#>" 
NAME="hidden" SCROLLING=no BORDER=0 f rameborder="0"> 

The main frame gets its source set from the .goTo SML variable. When the frameset is 
first loaded, this variable is set to the warning page. If there is a warp, this variable is set 
to whatever the "warpTo" variable was set to at warp time. The SML state ID and the 
banner ID parameters are also passed in this URL. 

The hidden frame initially loads the hiddenl file, passing to it the SML state ID and the 
banner ID parameters. 
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4.5.6. NOFRAME 

Tliis section allows a non-frames browser access to the sales pages. The .goTo will take 
the user to the warning page or the warped to page. 

<NOFRAME><HTML><HEAD> 

<TITLE>Sex Roulette</TITLE></HEAD> 

<BODY TEXT="#FFBOOO" BGCOLOR="#000000" LINK="#DDOOOO" 

VLINK="#DDOOOO" ALINK="#FFFF80"> 
Click <a href=<#.goTo#»here</a> to continue... 
</BODY> 

</HTML> 
</NOFRAME> 



6. The Hidden Frame 

The hidden fiame is the secret behind the operation of the mousetrap. The hidden frame 
always loads last. Consequently when the browser's back button is pressed, the hidden2 
file first unloads and then the hidden! file gets loaded. Hiddenl has a JavaScript which 
then loads a page into the main frame. 

5.1. The hiddenl File 

This file is loaded into the hidden frame and is used to load the main frame when the back 
button is pressed. 

function loadPageO 
{ 

if (parent. firstPageLoaded) 

if ( ! parent . linkClicked) 
{ 

if (! parent. backToTop)' 

parent .main . location=parent . backTo + 
"?<#SID=. #>fibid=<# .bid#>" ; 

else 
{ 

parent . newWin=f alse; 

top. location=parent. backTo; 

} 

} 

else 

parent . hidden . location=parent . hidden2 ; 
parent. linkClicked=f alse; 

} 

else parent. firstPageLoaded = true; 

} 
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6.1.1. If (parenLfirstPageLoaded) 

We first check to see if this is the firet time this file is being loaded If so we do nofh.n^ 
except set the "paientfirstPageLoaded" variable to true Tlfe fi«t dn.! tM^^i^^^ ^ ^ 

5.1 J. if (IparentlinkClicked) 

pareotloadPageO l«'ne executed by the page in the main flame. 
If the >rent.linl!Clicked» variable is tnie, then this page was loaded by the main fn,n,. 
page after a luA click and we need to load the hidden fane wift thiddS^T 

S.I. 3. if(IparentbackToTop) 

If "backToTop" is false, we will load the main fiame with the "backTo" page Otherwise 
we will replace the entire fiameset with the "backTo" page. Otherwise 

5.2. The hidden2 File 

Tie logical purpose of this page is mostly that of a placeholder. . . something to load after 

s^^^;foS^^^^^^^ 

<script language="JavaScript"> 

document, write { "parent. backTb=- + parent .backTo + " I i i i . . ... 
document. write ("parent waroTn-" + r^^t^I^v „ I I I I I I " ; 

</script> I parent. warpTo- + parent. warpTo + " I | | | | | 

To use the above in testing you have to modify the frameset page and the frameset 
?olX"^''"" "'"^^ P^^- 'Pi^ you sLJsee the 

Change the frameset definition to the following for testing with the hidden2 file: 
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6. The Main Frame 

W^Trint^ contoins all the p^es the user views. Most pages have a similar 
JavaScnpt between the <ytitle> and </head>. 

6.1. The Warning Page 

The warning page has the following JavaScript: 

<SCRIPT LANGUAGE=" JavaScript "> 
<!— Script start 

parent . backTo="nixsp_sof tsales . sral " ; 

parent . warpTo="nixsp_sof tsales . sml " ; 

window. defaultStatus=parent.defaultStatusMsg; 
parent . loadPage ( ) ; ^ 

// Script end — > 

</SCRlPT> 

The first two lines set the backTo and waipTo variables in the frameset page. The third 
me sets the default message. The fourth line starts the loadPageQ function (which starts 
the sequence ofloadmg into the hidden fiame). 

6.2. Sales Page 
6.2.1. MAC.visit 

The sales page has an SML tag on top of it: 
<#MAC.visit#> 

This SML tag causes a visit to be registered for the advertiser who's banner ID is 
appended to the URL as below: 

httpy/wiw.xxxsexphotos.com/mxspjfKlex.sml ?ac^^ 

When the user clicks the enter page and loads the page with the "MAC.visit" tag the 
advertiser with the number "1 00002" gets paid for a click 

This tag should not be on the softsales page. We don't pay an advertiser when they 
attempt to back off the warning page. 

T^e JavaScript for this page is identical to the warning page except for one additional 
parent . enterClicked=true ; 

When this variable is true, the user has clicked the enter button on the warning page The 
banners page may optionally look at this variable to decide where to redirect the user. 
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6.3. Registration (Age Verification) Page 

The JavaScript on this page is much different that the sales/waming^anner pages. Also 
the registration page may eventually change to a multi-page system currently under 
development (Feb 1998). 

The JavaScript on the current (single) page registration page looks like the following: 

<script language="JavaScript"> 
<!-- Script start 

var isSent = 0; 

parent . newWin=true ; 

function load() ^ 
{ 

^ window. defaultStatus=parent. defaultStatusMsg; 

function SubmitData( form ) 

parent . newWin=f alse ; 
if{ JisSent ) 

{ 

isSent = 1; 
form. submit ( ); 

} 

} 

// Script end — > 
</script> 

6.3.1. NoloadPageO 

The first thing to note is that the four lines on the warning page are missing here, 
including the "loadPageQ" function. This is because if the user hits the back button, we 
want them to be able to return to the sales page. If they warp out, they will warp to the 
location set in the previous sales page (whether it was softsales or a regular sales page). 

6.3.2. isSent 

The var "isSent" is used to guarantee that the pressing of the submit button will only 
submit once, even if the user keeps pressing it. 

6.3.3. ParenLnewWin 

In the "SubmitData" function, "parent.newWin" is set false so that after the person 
registers and clicks to go to enter the members are, they will not get a new sales page 
window when they warp. Should the person hit the back button from a failed registration 
page, the "parent.newWin=true" line will allow a new window if the person tries to waip 
from the registration page. 
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6.3.4. The Submit Button 

The submit button, near the bottom of the page uses an SML conditional to decide 
whether to use a JavaScript "button" or a regular "submit" button. The variable "SID is" 
IS set to true m the "hidden2" page. This page could only be loaded if the user had 
JavaScnpt capable browser with JavaScript enabled. Therefore the bode below will only 
us a JavaScnpt button if the user is running JavaScript: 

<$if cond:SID.js> 

<CENTER><input type="button" value=" Submit Information" 

onClick= SubmitData ( this . form ) ••></CENTER> 

<$else> 

<$endifr^''^"^ type="submif value="Submit Information •'></CENTER> 

The SML conditional <$if cond:MAC.user_agent LIKE 'Mo2llla/I2-9]"> should only be used on 
non-mousetrap registration pages. We have found about 5% of users have turned off 
JavaScnpt on a JavaScript capable browser. The condition searching for "Mozillar2-91" 
will present those users with a dead button and they will not be able to register. 

6.4. Survey Page ' 

This page currently takes a survey of users but never stores the data. In development is a 
survey page and Peri script which will store the data to SQL Server (this proiect was 
complete in early Feb, 1998). 

This page combines the JavaScript of both the warning page (section 6.1) and the 
registration page (section 6.3). The submit button can be a JavaScript button because the 
user must have JavaScript to get to this page. 

The fields in this form are all passed as parameters to the URL of the "allsites" 
registration page. The hidden fields are used to pass the "refen«r", the "bid", and the 
"referer". Because this is a submission, we have found it is possible to end up on a 
different server for the "allsites" page (especially when a Peri script "redirect" is 
eveiitually used to store the survey data). For this reason, the SID is useless and we have 
to directly pass the referrer as a parameter (the SID is specific to a server). 
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6.5. Allsites Registration Page 

The JavaScript in this page does not refer to the parent. We found that IE4 generated 



^J'^lilr!^'^ t^'f '"^ '""^'^"P^ ^ « non-mousetrap registration 

TTiis page uses multiple SML conditionals to answer some of the issues raised in the 
smvey page For example, if the pei^n is concerned about security, a paragraph will 
appear on this page that discusses security. '»grapnwm 

TTiis page also has a certificate on it that uses an SML conditional to detect Navigator 3 
This ,s because Navigator 3 camiot do cell background images so for Navigator 3 we had 

;«:Str>; -^^-^^^-^ - cell background images L fhlT 
system works better (the background pops up all at once). 

6.6. Softsales Page 

The JavaScript in this page is a little different than a regular sales page. For one we are 
on tTe r ' >""*-"-k^" variable because the person did not clicl the" n"r 
page) '° ^"'^ fr^"^ warning 

flZ^'J^t^"^ ' JavaScript conditional. If the person came in with a bamier ID 
(vanable acb is set on the frameset page... see section 4.4.2). they will back/waip to 
our bamiers. Otherwise they will go to a PG rated type website ^ 



<script language="JavaScript"> 
<!-- Script start 

if (parent. acb -= 

{ 

parent. backTo= 



pa;eit''wa'rp?o:''' * ' ^^^/^^^^^^-^i/ad/xpics/ricochet . cgiTxpicsr 

"http: //198 . 168 . 54 . 139/thrili-cgi/ad/xpics/ricochet cai->xDicsr " • 
^ parent. backToTop=true; //blow away frame ^ocnet .cgi .xpicsr , 



else 
{ 

parent . backTo="mxsp_banners . sml " ; 
^ parent . warpTo="mxsp_banners . sml"; 

window. defaultStatus=parent.defaultStatusMsg; 
parent.loadPageO ; 

// Script end ~> 

</script> 
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6.7. Banners Page 

6.7.1. Lfnks 

The banner links in this page all need the 'target="_top"' and the 
OnChck="parent.clicked(thisr' statements in all Hnks. A sample link is shown below: 

Target="_top" OnClick="parent. clicked (this ) "> 

6.7.2. Unconditional Back/Warp i 

This page has a line of JavaScript no used on previous pages: 

<SCRIPT LANGUAGE=" JavaScript "> 
parent. backTo= 

pa^ent'^'^a'rp?!:'''-''-''''^"^^ 

n.r^n^^y ^i^^;^^® • • 139/thrill-cgi/ad/xpics/ricochet . cgi^xpicsr " • 
parent. backToTop=true; //blow away frame ^gi-xpxcsr , 

window. defaultStatus=parent . def aultStatusMsg; 
parent. 1 oadPage () ; 
</SCRIPT> 

"P5^,^t-b^JToTop==true" allows us to replace the frameset page with the pages 
at the backTo/warpTo URL's. This means the user will be exiting the mousetrap and fs 

K^'tf wTw ° if they hit the back button again, they will 

be back to the mousetrap. ^ 
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6.7.3. Conditional Back/Warp 

This page can optionally have a conditional in the JavaScriot Ifth^ n^rc^n a^t. f« .i,- 

<SCRIPT LANGUAGE="JavaScript"> 
if (i parent. enterClicked) 

parent .backTo^ 

J "http, //19e . 168 . 54 . 139/thrill-c9i/ad/xpics/ricochet . cgiJxpicsr-, 

'J 



else 
{ 



^ 5ri:5r'''^°°"^"P'//*^''*'i«l«°sexchannels.com/vsc sales sml^hiH- 
<# . bid#>&ref er=MMUSE_banners . sml-<#MAC:NBHOST#> ' 

^^Jr^wf^?'^°:"^"P = ^/"^-^i^«°^e''channels.com/vsc'sales sml-'bid- 
^ <# •bid#>&refer=MMUSE_banners .sml-<#MAC. NBH0ST#>"7 

parent. backToTop=true; //blow away frame 

p"a"r:?:fdPa"i:?r°"''"°"'-'^'^"""""'«=^-- 

</SCRIPT> 

2. The SML "MAC.visit" will not be used on the sales page. 

The top of the "vsc.sales.sml" page should then have the following conditional: 

<$if cond:. refer val:SID.referer=.refer> 
<?else> 

<#MAC.visit#> 
<!— VH — > 
<$endif> 

On the «vsc_sales.sml" page, we don't want to cause a visit to be registered to a banner 
ID if the user IS jumping to it via the banners page. 
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Survey Page With SQL Server Access 



1. Introduction 

The survey page us^ a Perl Script with to store information in an SQL Server database 
table. 1 he form on the server page has numerous hidden variables which describe which 
parameters are stored and which are required to even cause a store.' 

This document assumes an understanding of "The Mousetrap for Programmers" 
document. 

2. Survey Page JavaScript 

TTie JavaScript for this survey page is identical to a survey page that does not store data 
1 he tollowmg is located between them <title> and the <yhead> HTML marks: 

<script language="JavaScript"> 
<! — Script start 

parent . backTo="raass_banners . sml " ; 

parent . warpTo="mass_banners . sml " ; 

window. def aultStatus=parent. def aultStatusMsg; 
parent.newWin=true; 
parent . loadPage ( ) ; 
var isSent = 0; 

function SubniitData( form ) 

parent . newWin=f alse ; 

if( .'isSent ) 

{ 

isSent = l; 
form.submit( ); 

} 

} 

// Script end — > . 
</script> 

Also note that the submit button can be a JavaScript button because the user must have 
JavaScript to get to this page. 
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3. Survey Page Form 

The hidden fields of the form configure this form to work with a particular table in a 
database (the database is selected by the DSN and the DSN is selected in the Perl script). 

The following is the configuration section of the form: 

<form name="qForm" melhod=get action=7cgl-bin/sufvey.pP> 

<inpiit type=hidden name='SID' value='<#SID.#>'> 

<input type=hidden name="referei' vaiue='<#SID.rBfefBr#>"> 

<input type=hldden nafne='js* value=*<#SID.js#>"> 

<input type=hldden name='bid' value="<#.bid#>'> 

<inpirt type=hidden name=feeder' value="MMUSE_suivey-<#MAC.NBHOST#>"> 

<input type=hldden name=table_name' value='survey_response'> 

<inputtype=hidden name='redirecf value=" httpy/www.sexniuseum.comAnfnuse_allsites smr> 

<inputtype=hidden name='fedirBct_append" value="ql,feeder.rBferer,bid,SID,js"> 

<lnput type=hrdden name=*one_requlred" value='q1,q1_text,q2,q2_text,q3_texf > 

<inputtype=hldden name='stored' value="q1,q1jext,q2.q2jext.q3_text.feedef'> 

The first line calls a get to "survey.pl" when a submission occurs. The "SID", "feeder" 
"bid", "SID.js", and "SID.referer" fields get passed to the registration page. ' 

The "feeder" line shows that the user came from the survey page in Sex Museum. This is 
the only line in the form that must be customized for a particular site. 

The "table_name" parameter is the name of the table in SQL_Server that will receive the 
data. The "redirect" is the next page to load after the Perl script runs. 

The "redirect_append" parameter indicates which parameters should get append to the 
"redirect" URL. Currently we need to append "ql" the "...allsites.sml" page answers 
questions, depending on what the selections are to the first question in the survey. If we 
wanted to respond to other questions, we would have to add that in the "redirect_append" 
list. Note that each parameter is separated by a comma. 

The "one_required" parameter is used to indicate that at least one of these parameters 
needs to be set in order for us to store a record in. the table. We don't want to store 
information if the user has not made any entries in the form. 

The "stored" parameter is the names of the parameters we want to store. These names 
need to be exactly match the names in the table on SQL Server. 
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4. Survey Page Perl 

4.1. Description 

The Perl is fairly well commented so it requires little explanation here. The ODBC 
t^s wlthTerl ?001 °" ^^'^ ''^^''^'^ "^"^^^ Perl script. We tested 

If there are any errors storing into a table, the Perl script displays a diagnostic eiror page. 

4.2. Installing the ODBC Module 

The "perl\lib\win32" directory needs to have the "odbc.pm" file installed. Also the 
M\Iib\auto\win32\odbc" directory needs to be created and in that directory, the 
odbc.pll" needs to be placed. These extensions were developed by Dave Roth and 

further mfo can be found at the following URLS: 

http : //multiweb. lib . calpoly . edu/odbc/ 
ht tp : / /www . roth . ne t /odbc/odbcf aq . htm 

http : //ci tel2 . tp . ac . sg/stf index/staff /kinchew/odbc/odbcfaq htm 
http : //www. If tech . com/oltc/webdev/webdev4 . stm 
http: //www. ptyx, com/howto/indexl .html 

The above URL's are given for reference only. . . it is not necessaiy to read the above 
documentation to make the survey operate. The ODBC Perl files can be downloaded at: 

ftp://ftp.epix.net/pub/languages/perl/authors/Dave_RothAVin32odbc_v970208.zip 
The above file has fiirther documentation on the ODBC modules. 

4.3. The MS SQL Server Table 

Before the Perl can send data to SQL Server, a table with the name "survey_response" 
needs to be setup like the following (such a test table exists on PALERMO in the 
"salesjnfo" database): 
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4.4. The Perl Script 

The $dsn, $uid, and $pwd variables in the script need to entered after an SOL Server database 
and DSN is setup. 

i SURVEY ver 1.0 Copyright 1998 SuperBusiness Net «t»f f fHf 

# Written by Wayne W. Weber January 26, 1998 Last Modified: January 26,1998 f 

I Inserts Values from an HTML form into a Database via ODBC { 
$uid=''sa"; 

$pwd="xxxxxxx"; • 

require "cgi-lib.pl"; 
use Win32: :ODBC; 

iff###«#«#l»#«« START OF MAIN t«######iif ## ft # 

Parse arguments 
fiReadParse (*in) ; 

#### Flush StdOut 
$1 = 1; 

#### Get arrays of fields that aren't required or stored 

eone_required=split(/ V, $in{ "one^required" } ) ; #At least one of these fields must have 
Q ^ , , . , ^ Isomething to store in DB 

«r^dfr^^'''''^^/' :/'t^n("stored"n; #Don-t store these pa rams in DB 

eredirect_append=split(/ *, V, $in{ "redirect_append" } ) ; #Append params to redi^t Crl 

#### See if any of the one__required fields entered #### 

$one_req_f ound=0 ; 

foreach $req (@one_required) 

^ if ($in{$req} ne {$one_req_found=l; } 

Construct the date/time value #### 
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime (time) ; 
++$mon; $date_time = "$mon-$mday-$year $hour:$min:$sec''; 

#### Find fields to be stored "#### 

foreach $store (gstored) 

{ 

if ($in{$store) ne 
{ 

$insert { $s tore ) -$in { $store } ; 

) 

#### Execute the SQL Insert command subroutine #### 

if ($one_req_found) iDon't insert a record if nothing entered 

$error_found==""; 

if ( ($error_found = Sinsert_^sql ($in{ ' table_name • ) , \%insert, $date_time, $dsn, $pwd, $uid) ) ne ."") 
&print_error("SQL Error", $error_found) ; 

} 
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$l"eS"-f P"^^'^^" indicated in 8redirect_append if if 
foreach $element (eredirect_append) 

{ J 



#### Send to new location 

#&print_error("SQL command", "$sql\n-) ; 
print "Status: 302 \n"; 

print "Location: $in{ 'redirect ' )$append\n\n"; 

i««i#»f«i«#«||# END OF MAIN <## ffilfff f #««# 

sub print_error 
{ 

print fiPrintHeader; 
print &HtmlTop("$_[0] ") ; 
print "<pre>\n"; 
print $_[! Im- 
print "</pre>\n"; 
print fiHtmlBot; 
exit; 

) 

#### Construct and Execute the SQL Insert command ilff 

sub insert_sql 

{ 

foreach $key (keys %$my_insert) 

$value=" • " , $$my_insert {$key) . " • " ; 

if ($fields ne {$key=", " . $key; } 

xf ($values ne "") {$value=", " . $value; } 

$f ields=$f ields . $key; 

$ values=$ values .$ value; 

) 

$sql="INSERT INTO ".Stable." ^fields created) VALUES Rvalues. $my_date_time. "; 

# Execute the SQL command -# 

if (!($db = newWin32::ODBCCDSN=$my_dsn;UID=$my_uid;PWD=$n.y_pwd;"))) fEstablish connection. 
$error = "<strong>Error connecting to $dsn</5trong>\n\n"; *" ^""^"^ 

retim $error°'^*"^^*''°"^^^'''^°''''^''^*^''°"^^ ' "^"32: .-ODBC: : Error () . "\n"; 
) error, 

$db->Sql($sql) ; lExecute the command 

If (($err = Win32: :ODBC: :Error() ) ne #lf there is an error, print it 

$error = ••<strong>Error sending SQL command: </strong><br>\n" ; 
$error = $error. "$sql<br><br>\n"; 

$error = $error."<strong>Error:</strong> \n$err\n"; 
return $error; 

} 

freturn "No error: ".$sql; 
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Multi-stage Registration 

With SQL Insert via Perl 



1. Introduction 

The Multi-stage registration breaks up the registration process into two stages. In the firet 
stage, we allow the user to select a usemame and password. We also require the user to 

Should the user forget to enter a field in the fonn,->a text box near the submit button 
prompts the user to complete the form. 

TTie email address fiom the first phase of the registration is stored in a SQL database table 
via a Perl scnpt. If the user does not have a JavaScript enable browser, the Perl script will 
also remmd the user to properly fill in the forni. 

This document assumes an understanding of "The Mousetrap for Programmers" 
document. 

2. Registration #1 
2.1. JavaScript 

The JavaScript for this page is quite involved because of the amount of checking done 
The JavaScript checks the following: 

1. A usemame has been entered. 

2. A password has been entered. 

3. A password made of letters and numbers has been entered. 

4. A password that is 4 - » charactere has been entered. 

5. The password verify has been answered. 

6. The password is the same as the password verify. 

7. An email address which has: no spaces, no commas, one @, a period that is not the 
last character, and a period after the @. 

If there are multiple errors, the message will just show the firet error in the above 
sequence. When that error is corrected and the user pushes the submit, the JavaScript will 
show the next error. 

The JavaScript also has a function for blinking that calls itself recursively to keep the 
blink cycle going. The text stays on for 1200 ms and off for 200 ms. 
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The following is the JavaScript for this page: 
<script language=" JavaScript "> 

parent. t>aclToToplllui(T/^l^^^^^^ 
parent . newWin=true ; 

window, def aultStatus-parent . def aultStatusMsg; 
parent . loadPage ( ) ; 
var isSent = O; 
• var blinking=false; 

function blinkText (aForm, txt, aFlag, rptFlag) 

this . aForra-aForm; this . txt^txt ; onFlag=aFlag; repeatFlaq=rptFlaa • 
If dissent && (repeatFlag || iblinking)) ^ ^ rptFlag, 

if (onFlag) 
{ 

aForm . reminder . value=txt ; 
^ setTimeout( 'blinkText (aForm, txt, lonFlag, true) 1200); 

else 
{ 

aForm . reminder . value=" " ; 
^ setTimeout( 'blinkText (aForm, txt, ! onFlag, true) • , 200); 

} 

blinking=true; 
return; 

} 

function checkEmail (addr) 

space = addr.indexOf {" "); 
comma = addr.indexOf (",") ; 
firstAT = addr.indexOf ("@"} ; 
lastAT = addr.lastlndexOf ("@") ; 

lastDOT = addr. las t IndexOf (".") ; ^ 
len = addr. length; 
if ( 

iM^^'JLr 'V " (l^^tDOT == -1) II (lastAT != firstAT) || 
(io^a^! < 2' " " l^-tDOT) < 2) M (space != -1) |, 

) return false; 
else return true; 

} 
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function SubmitData( form ) 

if (lisSent) 
{ 

if (form. PARMIO. value 

{ 

^ blinkText (form, "Please choose a member name. tru^, false) ; 

else if (form. PARMl Lvalue / 
{ 

^ blinkText( form, "Please enter a password. true, false) ; 
else if (escape (form. PARMll. value) .indexOf("%") != -l) 

blinkText (form, "Password: letters & numbers only .", true, false) 
else if (form. PARMl Lvalue, length < 4) 

form. PARMl Lvalue = form. PARMl 2. value = "" 

blinkText (form, "Password has 4 characters min. ", true, false) ; 
^ blinkText (form, "Password needs 4 characters min. ", true, false) ; 

else if (form. PARMl 2. value == "") 

^ blinkText (form, "Please verify password. ", true); 

else if ( (form. PARMl Lvalue != form. PARMl 2. value) ) 

form. PARMl Lvalue = form. PARMl 2 .value = "" 
^ blinkText (form, "Password error, please re-enter true, false) ; 

else if ( icheckEraail (form. PARM9. value) ) 
( 

blinkText (form, "Please check your email address .", true, false) ; 

else 
{ 

parent . newWin=f alse; 
isSent = 1; 

form. reminder. value="Thank you! One moment ..." ; 
//window. alert {"submitting") ; 
form. submit ( ); 

} 

} 

} ■ 

function load() 
{ 

^ document. forms [0] .reminder. value=" Please complete before sending."; 
// Script end — > 
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2.2. Register #1 Form 

The hidden fields of the forni configure this form to work with a particular table in a 
database (the database is selected by the DSN and the DSN is selected in the Perl script). 

The following is the configuration section of the form: 

<fomi naine="qFonn' melhod=get acBon=Vcgi-bin/register1.pr> 

<inp(it type=hidden name="SID" value=*<#SID.#>'> 
<inptit type=hidden name=feeder* value='<#.feeder#>'> 
<input type=hidden name='bid' value='<#.bld#>'> 
<inpul type=hidden name=1s' value='<#SID.js#>'> i 
<input type=hidden name='referBr' value='<#SID.fBferer#>"> 

<input type=hidden name=table_name' value=*register1 "> 

<inpiit type=hjdden nanie="fBdirBct' value='hllp7/iw(iw.sexmuseum.com/mmuse_registei2 smr> 
<inpiit type=hidden name="redirect_append" 

value='bld.PARM9.PARM10,PARM11.PARM12,refefBrjs.feeder-> 
<input type=hidden name='stored" value='PARM9,send_email,feedef'> 

The first line issues a get to "registerl .pi" when a submission occurs. The "SID" 
"feeder", "bid", "SID.js". and "SID.referer" fields pass these SML variables to the second 
registration page. 

The 'Hable_name" parameter is the name of the table in SQL_Server that will receive the 
data. The "redirect" is the next page to load after the Perl script runs. 

The "redirect_append" parameter indicates which parameters should get appended to the 
redirect" URL. Note that each parameter is separated by a comma. 

The "stored" indicates which parameters need are to be stored in the database table Note 
that the foim "name" names need to be the same as the field names in the SQL database 
table. 
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2.3. Perl Script 

The Perl script for this page verifies the same items as the JavaScript because the user 
may not have a JavaScript enabled browser. The Peri script also inserts the email address 
mto an SQL database via ODBC. 

2.3.1. Description 

The Peri is fairly well commented so it requires little explanation here The ODBC 
module must be installed on the Peri of every server that uses this Peri script We tested 
this with Peri 5.001. 

If there are any errors storing into a table, the Peri script displays a diagnostic error page. 

2.3.2. Installing the ODBC Module 

The "peri\Iib\win32" directory needs to have the "odbc.pm" file installed. Also the 
''perl\lib\auto\win32\odbc" directory needs to be created and in that directoiy, the 
"odbcpll" needs to be placed. These extensions were developed by Dave Roth and 
further info can be found at the following URLS: 

http ; //mul tiweb . lib . calpoly . edu/odbc / 
http : / /www . roth . net/odbc/odbcf aq. htm 

http://citel2.tp.ac.sg/stfindex/staff/kinchew/odbc/odbcfaq htm 
http://www.iftech.com/oltc/webdev/webdev4 .stm 
http : //www . ptyx . com/howto/indexl . html 

The above URL's are given for reference only. . . it is not necessary to read the above 
documentation to make the program operate. The ODBC Peri files can be downloaded at: 

ftp://ftp.epix.net/pub/Ianguages/perl/authors/Dave_Roth/Win32odbc_v970208.2ip 

The above file has fiirther documentation on the ODBC modules. Currently these files are 
installed on the KAUAI computer. 

2.3.3. The MS SQL Server Table 

Before the Peri can send data to SQL Server, a table with the name "register!" needs to 
be setup like the following (a development table exists on PALERMO in the % 
database): 




register! (dbo) 





datetime 


8 


V 






varchar 


48 


V 






varchar 


48 


\r 






varchar 


6 
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2.3.4. The Script 

The $dsn, $uid, and $pwd variables in the script need to configured after an SQL Server 
database, and DSN is setup 

f REGISTERl ver 1.1 Copyright 1998 SuperBusiness Net # 
» Written by Wayne W. Weber January 26, 1998 Last Modified: January 26,1998 # 

t Checks for valid Member Name, Password, and Email and then Inserts these # 

# Values into a Database via ODBC. I 

# * 

$uid=|'sa"; ' j J^'^^SS^^^^ ^^^^^^^^^^^^ 

^reqilire^^i -lilf.pl"; W 
use Win32: :ODBC; 

############### START OF MAIN #############»# 

#### Parse arguments 
&ReadParse {*in) ; 

#### Flush StdOut 
$1 = 1; 



#### Get arrays of fields that aren't required or stored #### 

estored=split(/ *, V,$in{"stored"}); #Store these params in DB 

8redirect_append=split(/ *, V, $in{ "redirect_append" ) ) ; #Append params to redirect URL 

#### Check for errors in entry #### ^ 
$error_f ound=" " ; 

if ( ($error_found = &check_error (*in) ) ne 



) 



&print_error ("Oops. . . some errors' were found", $error found,); 



#### Construct the date/time value #### 

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdat) = localtime (time) ; 
++$mon; $date_time = "$mon-$mday-$year $hour:$min:$sec"; 

#### Find fields to be stored #### 
foreach $store (gstored) 



{ 



if ($in{$store} ne "") 
{ 

$insert { $s tore } =$in { $s tore } ; 

} 
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fJMsp^rnf ^ ""^^ command subroutine ###» 

Jf ($error_found eq foon't insert a record if form not filled out properly 

$error_f ounci=" " ; 
if ( ($error_found = 

^ *i'^^"t_sql($in(.table_name'},\%insert,$date_time,$dsn,$pwd,$uid)) ne 
^ &print_error { "SQL Error" , $error_f ound) ; 

} 

$fppe?d=""f P""™^'^" indicated in eredirect_append #### 
foreach $element (eredirect_append) 

eLi^Srl^'' i^^^^^r "?"-5P^""''» #Add ? to beginning 
else {$param = "&".$param;} #Add & otherwise 

$xn{$element} =~ s/ ( t-a-2A-Z0-9_\-. ] ) /uc sprintf ("%%%02x",ord($l) ) /ea- #riRT ^ 
^ $append=$append.$param.-=".$in{$element); #Enter parameter ^' ^"^^'^e 

#### Send to new location #### 
print "Status: 302 \n"; 

print "Location: $in{ 'redirect • )$append\n\n"; 

!!!!I!fnJ!JJff ci^n °^ ^^^'^ ############### 

»»############# START OF SUBROUTINES ############### 

sub print error 

{ 

print &PrintHeader; 

Rrrmof i.^J5^!lli^''Ko^f^'^^^^^>^-f°J</title></head>\n<body 
BGCOLOR=#ffffdO><h2>$ [0]</h2>\n"- 

print $_[!]; 

print iHtmlBot; 

exit; 

) 
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««## Check for errors in entry #### 

sub check error 

{ 

local {*in) = @ ; 

$error_found=0; $error=""; 
if ($in{ 'PARMIO' J eq "") 



^ $error = $error . -<li>-. "Piease enter a member name. -\n</li>"; 
elsif ($in( 'PARMIO') !~ /fA-Za-z] . */) 

^ terror = terror. ..<li>-. -your member name needs to start with a letter. "\n</ii> 
elsif ($in{. PARMIO', /\„./, #Does the name contain any non-alpha chars 

$error = 

^ terror. "<li>'.. "Your member name can have only letters and numbers .". '■\n</li>- 



if ($in{ 'PARMll' ) eq "") 
{ 

^ $error = $error. "<li>''. -Please enter a PASSWORD. -. "\n</li>"; 
elsif ($in(. PARMll', !- /\„(4,8,/, #ls the password at least 4 chars 

$error = 

^ $error.-<li>"."your password needs to be 4 characters or longer. "\n</li>-; 
elsif ($in,. PARMll', /\„./, ,ooes the password contain any non-alpha chars 

$error == 

^ $error.''<li>-."The password can have only letters and numbers .-. -\n</li>"; 

if {Sin{'PARM12', eq "") 
{ 

^ $error = $error. "<li>". "Please enter password VERIFY. ". "\n</li>"; 
elsif {($in{'PARMll', ne ($in{ • PARMll • } ne $in{ ' PARM12 • , ) , 

$error ^- 

^ $error."<ll>"."Your PASSWORD does not match the VERIFY password. ••\n</li>"; 
if ($in{ 'PARM9' , eq 

^ $error = $error. •'<li>" . "Please enter your EMAIL address. ". "\n</li>"; 
elsif ($in{'PARM9', !- /.+\@.+\. .+/) 

$error = 

^ Serror.''<li>". "There appears to be a problem with your EMAIL address .". "\n</li>"; 

if ($error ne "") 
{ 

correct%'Sr:r:o^°<;;^ro;g>" press. your browser's BACK BUTTON and 
return $error; 

} 
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'in. 



foreach $key (keys %$my_insert) 

$value=" • " . $$my_insert { $key ) . " - 
If ($fields ne f$key=", -.$key; } 
xf ($values ne {$value=-, ".$value; } 
Sf ields=$f ields . $key; 
^ $values=$values.$value; 

(" IvJl^es''-'- IT^'l^^'t^'^-:, <"-$fields. ".created) VALUES 
I .^»va±ues. , -?iny_date_time. ) v 

# Execute the SQL command # 

if (M$db = new Win32::ODBC("DSN=$™y_dsn;UID=$my_uid;PWD=$my_pwd;-,,,#Make connection 
lerror ° ."^^^""f ^rror connecting to $dsn</strong>\n\n"; '^"^"'^ 
L\"r; ^erSr- = " Win32: : ODBC: : Error ( , . "Xn"; 

} 

$db->Sql($sql); #Execute the command 

If (($err = Win32: : ODBC: : Error () ) ne -) #if there is an error, print it 

$error = "<strong>Error sending SQL conunand:</strong><br>\n" • 
$error = $error. "$sql<br><br>\n"; ^ ^Dr>\n , 

$error = $error . "<strong>Error : </strong> \n$err\n"; 
return $error; ' 

} 

freturn "No error: •'.$sql; 
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3. Registration #2 

M ^"^^ "^^'^^^ P«g« that were passed on by the 

Perl script. SML at the top of this page is used to assign local parameter to SID 

e^^r ^ ^ ^^^^'^ ^^"^ ^ ^ ^"^^^^ ^^^^ "SID.referer'' for 

7Z nr'Tf T '''n^'T P'^"' '^^t address infonnation 

3.1. SML i 

The following SML should be at the top of the registration page: 

<$assign val:SID.nun="apps.xpics'.com"> 

<lif :Sri.f ?'jr.SS>ii:^Jii?=''^='^'' ' -'0-C«BCKED><.e„dif > 

<$if cond:. referer val:SID.referer=.referer><$endif> 
<?xf cond: OS valrSID. js=. js><$endif > 

3.2. JavaScript 

!:^n •Jgistration page, this page also verifies the user entiy before a submission 

IS aUowed. A function also checks a credit card for validity. The following JavaScript is 

<script language="JavaScript"> 
<l~ Script start 
var isSent = 0; 
var blinking=false; 

function blinkText (aForm, txt, aFlag, rptFlag) 

this aForin=aForm; this . txt-txt ; onFlag=aFlag; repeatFlag=rptFlaa • 
If dissent && (repeatFlag M Iblinking)) ^ rpttlag, 

if (onFlag) 
{ 

aForm . reminder . value=txt ; 
^ setTiineout( -blinkText (aForm, txt, ! onFlag, true) ' , 1200); 

else 
{ 

aForm . reminder . valuer" " ; 
^ setTimeout{ 'blinkText (aForm, txt, lonFlag, true) 200); 

} 

blinking=true; 
return; 



} 
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function isCreditCard (cc) 

// Encoding only works on cards with less than 19 diaits 
l=cc.length;st=""; uj-yj-ts 

for (i = 0; i < cc. length; i++) //remove spaces 

if (cc. substring (i,i+l) == " ») continue; 
^ St - st + cc. substring (i, i+1) ; 

if (St. length > 19) return (false); 
sum = 0; mul = 1; 1 = st. length; 
for (i = 0; i < 1; i++) 
{ 

digit = st.substring(l-i-l,l-i); 

tproduct = parseint (digit ,10)*mul; 

If (tproduct >= 10) sum += (tproduct % 10) + 1; 

else sum += tproduct; 

if (mul == 1) mul++; 

else mul — ; 

) 

if ((sum % 10) = 0) return (true); 
else return (false); 

function SubmitData( form ) 

if ( lisSent) 
I 

if (form.PARM?. value == "••) 
{ 

^ blinkText {form, "Please enter your first name.", true, false); 

else if (form.PAIU48. value == "") 
( 

^ blinkText (form, -Please enter your last name. true, false) ; 

else if ( form. PARMl 4 .value "") 
{ ' 

^ blinkText (form, "Please enter your credit card. ", true, false) ; 
else if (form.PARMlS.selectedlndex == "0") 

^ blinkText (form, "Please select expiration month. ", true, false) ; 
else if (form.PARMlS.selectedlndex == "0") 

^ blinkText (form, "Please select expiration year. ", true, false) ; 
else if (form.PARM17.selectedIndex !="!•') 

^ blinkText (form, "Please answer: Do you accept. ..", true, false) ; 
else if (! isCreditCard (form.PARM14. value) ) 

blinkText (form, "One moment please . . . true) ; 

^KoHi*. ^®"^"'eout( -blinkText (document, forms [0], "Please enter a valid 
credit^ card. ", true, false) ;', 5000) ; 

else 
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parent .newWin=false; 
isSent = 1; 

form. reminder. value="Thank you! One moment, 
//window. alert ("submitting: ") ; 
form. submit ( ); 



function load() 



^ docun,ent.forms[0].reminder.value=-Please complete before entering."; 



// Script end ~> 
</script> 
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Query - #1 /* Microsoft SQL Serverj 

/* Microsoft SQL Server - Scripting 
/* Server: PALERMO */ 
/* Database: xpl_maindb_f */ 
Creation Date 3/31/98 3: 1 3:54 PM */ 

use PreRegister 
GO 

/****" Object: Table dbo.PreUsers Script Date: 3/31/98 3:13:55 PM ******/ 
if exists (select * from sysobjects wtiere id = objectJd('dbo.PreUsers') and sysstat & Oxf 
drop table dbo.PreUsers 
GO 

/**"** Object: Table dbo.PreUsers Script Date: 3/31/98 3:13:55 PM *"***/ 
CREATE TABLE dbo.PreUsers ( 
Addressi varchar (40) NULL , 
Address2 varchar (40) NULL , 
City varchar (40) NULL . 
Country varchar (40) NULL , 
Phone varchar (20) NULL , 
State varchar (40) NULL , 
USER_AGANT varchar (64) NULL , 
ZIP varchar (20) NULL , 
banner jd varcha r (32) NULL , 
JOT NULL. 
[§4) NULL . 

^ ^.^ULL. 

3er varchar (40) NULL , 
. st_name varchar (40) NULL , 
ip varchar (32) NULL . 
last_modified datetime NOT NULL , 
last_name varchar (40) NULL . 
prijd varchar (32) NOT NULL , 
referer varchar (128) NULL 

) 

GO 

^REATE INDEX ID_PreUsers_email ON dbo.PreUsers(email) 
CREATE INDEX ID_PreUsers_fn ON dbo.PreUsers(flrst_name) 
^REATE INDEX ID_PreUsersJn ON dbo.PreUsers(last_name) 



^REATE INDEX ID_PreUsers_zip ON dbo.PreUsers(ZIP) 

CREATE CLUSTERED INDEX IDUSER_Precreated ON dbo.PreUsers(created) 
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Thumbnail Indexer 

1. Introduction 

This program, written in Java LO, selects images out of a storage area and moves them to 
a viewing area. It should be run on a scheduled basis to rotate through the images in the 
storage area (this program is not an applet but a stand-alone application run from DOS). 

The program's ".class" files can be run with Sun's JRE or it could be compiled to create 
an EXE file using SuperCede or Symantic's Java compiler. 

The developer of this program (Wayne Weber) left a running sample of this program and 
sample image directories on a CD and on the computer KAUAI and in the server 
GONDOLIER on the E_drive in a directory called "Waynes_archive_S AVE" 

2. Example 

The example included here is for images for three fetishes: substantial, thin, and mature. 
The images in the example are random and not really substantial, thin, or mature. They 
images can be located in the "d:\http\sd\membership\members\fetish" directory. 

The file called "indexer.ini" has information for configuring the program. The file 
"indexendat" has data for the last copied files. 

When the "indexer.exe" program in the "d:\java\Fetish_c\" directory is run, the next 
series of 50 images will be copied out of: 

D;\http\sd\membership\members\fetish\Mature\payoff\reserve\ 

to: 

D: \http\sd\membership\meinbers\fetish\Mature\payof f \ 
and from: 

D:\http\sd\membership\meinbers\fetish\Mature\closeup\reserve\ 

to: 

D: \http\sd\membership\members\fetish\Mature\closeup\ 
This will also happen in parallel directories for the "substantial", and "thin" categories. 

Note: Instead of running the "indexer.exe" program, we also have a batch file that runs 
Sun's JRE to execute the ".class" files. That batch file is called "jre.bat" and is located in 
the "d:\java\Fetish_c\Indexer\ directoiy. That batch file looks like the following: 
\java\jrel.l\bin\jre -cp \java\Fetish_c\Indexer Indexer 
After the files have been copied, on Kauai, they can be viewed at: 

http://kauai.sbusiness.com/sd/membership/members/fetish/index.sml 
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3. SML files 

Not only does the "indexer" program copy files, it also creates the thumbnail pages for 
each categoiy. When the thumbnail is clicked, the Imk passes parameters to a generic 
SML page, "Showpayoffsml". that loads the proper full sized image. Also passed to the 
Showpayoff.sml" page is information indicating if a closeup exists. If a closeup does 
exist, a link appears on the "Showpayoffsml" page to the "Showcloseup.smI" page. 

The following files contain the thumbnails and links to the "Showpayoff.sml" page (and 
are generated by the Java program): 

Mature . sml 

Fetish. sml ^ 
Substantial . sml 



The foUowirig files are built by the developer (we have samples): 

index. sml (or whatever name you want to give the first paae) 

Showpayoff.sml 

Showcloseup.smI 

The "index.smr' has links to the files generated by the "indexer^' Java progr^... in this 
case, the Mature.sml, Fetish.sml, and SubstantiaLsml files. 

The number of thumbnails and category names are set in the "indexer.ini" file. 
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4. Directory Structure 

A directory structure must be followed for the program to work properly. The following is 
the structure for our example: 



$ {M http 



membefship 
M members 
B-{^ fetish 
^"{M Mature 
I ^ doseup 
1 I •--(^ reserve 
i B iM paj«off 
i ''"^ reserve 
B-{^ Substantial 
I B (M doseup 
1 j --^ reserve 

I ^ reserve 

1 ^'(^ dosetip 

1 '--j^ reserve 
j B l^pajKrff 
I '--(^ reserve 
^ -{H thumb 



An entry in the "indexer.ini" file points to the "D:/http/sd/membership/members/fetish" 
drrectory (imageGroupsRootDir). The main directories under the "fetish" directory 
(Mature, Substantial, and Thin) are pointed to by the "imageGroupName" entries in the 
"indexenini" directories. The Mature, Substantial, Thin, directories and their 
subdirectories (payoff & reserve and closeup & reserve) must be manually created. 

The image pool is placed in the reserve directories. The "indexer" program copies the 
next 50 (or whatever number is set as "thumbsPerlndex" in the "indexer.ini" file) to the 
directory above the reserve directory. This is done for the payoff and closeup (if there is a 
closeup available) directories. 

All thumbnails for all images are in the "thumb" directory. 

The filenames must be the SAME for all three image sizes. For example, a file iri the 
"Mature/payofiE'reserve" directory called "matl211.jpg" would also be called 
"matl21 l.jpg" in the Mature/closeup/reserve" directory. In the "thumb" directory, it 
would also be called "matl21 1 .jpg". 



Note that the image files MUST end in ".jpg' 
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5. Operation 

The "indexer" program sequences through each of the image group directories. In our 
example, it might first go to the "Mature" directory and then sequence through the 
following: 

1 . Get the alphabetic listing of the files in its "Mature/payofD'reserve" directory. 

2. Examine the "indexer.dat" file to see what was the last file copied from the 
"payoflD'reserve" directory. 

3. Delete all files in the "Matui«/payofF* directory. 

4. Copy the next 50 files from the next "Mature/payoflD'reserve" dirctory to the 
"Mature/payofF' directory. 

5. Delete all files in the "Mature/closeup" directory. 

6. Look in the "Mature/closeup/reserve" directory and see which of the 50 files found in 
the Mature/payofl/reserve" are also present in the "Mature/closeup/reserve" directory. 

7. Copy the files found in step 6 to the "Mature/closeup" directory. 

8. Look in the "thumbnail" directory and see which thumbnails are missing. 

9. Generate the "Mature.sml" page. If thumbnail missing, use generic thumbnail. If 
"closeup" file present, add the parameter "cl=t" in the link to the "Showpayoff.sml" 
page. 

The above steps are repeated for each of the image group directories. If all images have 
been cycled through in a "reserve" directory, "indexer" starts again with the first image. 

6. Indexer.ini 

This file customizes "indexer". A sample file is shown below: 

#The number of Thumbnails on" an index page, 
thumbs Per Index=50 

#This is the path where all the image directories are under. 
#Can use back or forward slashes to separate directories 
imageGroupsRootDir=D:/http/sd/raembership/merobers/fetish 

#These are the various categories of image groups. 
#Do not skip a number in sequence. 

#Capitalize the first letter... it is used in a title as well 
imageGroupName [ 0 ] =Ma ture 
imageGroupName(l]=Substantial 
imageGroupName [2 ] =Thin 

The comments in this file are self explanatory. The "imageGroupName" is used to locate 
a directory and is also used in a heading on thumbnails page (so it probably should start 
with a capitol letter). 
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7. Indexer.dat 

This file must initially be created manually by the developer. As the comments in the file 
show. It can mitially be created with just the comments. The first time "indexer" is run 
the ". . .lastFileCopied" for each image group will be added to the file. 

jThis file must exist and it is updated by the indexer. 
#It can be empty except leave these comment lines in 
MatureLastFileCopied=cb006o. jpg 
SubstantialLastFileCopied=cb014b. jpg 
ThinLastFileCopiecl=mhlOOb. jpg 

This file is used to keep track of the last file copied. 

i' 

8. Indexer's Files 

The following ".class" files are need to run indexer using Sun's JRE (the source or 
"Java" flies are included on the CD or GONDOLIER as mentioned in the Introduction): 

Directory. class 
DirectoryManager. class 
Indexer. class 
JPEGFileFilter . class 
ParsedFile. class 
ThumbNailsPage . class 

As described earlier, the following files are needed by indexer: 

indexer.dat 
indexer.ini 
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Creating an ODBC Object 

Your script will need to have the following line: 

use Win32 : : ODBC; 
Then you will need to create a data connection to your DSN: 
$Data = new Win32: : ODBC ("MyDSN") ; i 

You shoud check to see if $Data is indeed defined otherwise there has been an error You can now se 
SQL quenes and retrieve info to your heart's content! See the description of functions below and also 
test.pl to see how it all works. 

Make sure thai you close your connection when you are finished: 

$Data->Close{) ; 



Object Methods 

General Note 

All methods assume that you have the line: 
use Win32 : : ODBC; 

somewhere before the method calls, and that you have an ODBC object caUed $db which was created 
usmg some call similar to: 

$db = new Win32: : ODBC ("MyDSN" ) ; 

See new for more information. 

Also, in an effort to keep the examples short, no error checking is done on return values for any calls other 
than the one bemg exemplified. You should always check for error conditions in production code. 

fVARNING: The example code has not yet been tested. This will be fixed ASAP, but befi>rwamed! 
Methods 

Catalog qualifier, owner, name, type 

Retrieves the catalog from the current ODBC object. Returns a four-element array (Qualifier, 
Owner, Name, Type). Note: All fieldnames are uppercase! 

Example : 

($qualifier, $owner, $naine, $type) = $db->Catalog { " " , •"' , , "'TABLE'"); 
Connection 
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Returns the object's ODBC connection number. 
Example: 

$cnum = $db->Connection; 

Close 

Closes the ODBC connection for this object. It always returns undef. 

Example: 
$db->Close(); 

Data 
Data list 

Retrieve data from previous fetch for a list of field names. In a scalar context it returns all of the 
tield values concatenated together. In an array context, it returns an array of the values, in the order 
m which they were specified. If no field names are 'given, all fields are retumed in an unspecified 

Example: 

$db">Sql ("SELECT fl, f2, fS FROM foo") ; 
$db->FetchRov ( ) ; 

$f2) = Sdb->Data("fl", "f2") ; 

or 

$db->Sql( "SELECT * FROM foo«); 

$db->FetchRow() ; 

@ values ss $db->Data; 

See also: DataHash 

DataHash 
DataHash list 

Retrieve data from previous fetch for a list of field names. Returns a hash where the field name is the 
key. If no field names are given, all fields are retumed. 

Example: 

$db->Sql{" SELECT fl, f2, £3 FROM foo") ; 
$db">FetchRow ( ) ; 

%hash = $db->DataHash("fl", "f2") ; 
print $hash{fl); 



or 



$db->Sql( "SELECT * FROM foo") ; 

$db->FetchRow() ; 

%hash = $db->DataHash; 

foreach $Jcey (sort (keys %hash) } { 

print $key, < = ', $hash{$key), "\n"; 

1 

See also: Data 
DataSources 

Returns an associative array of Data Sources and ODBC remarks in the form of: 
$ArrayName { • DSN • } = Remark 

where DSN is the Data Source Name and Remark is, well, the remark. 
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' Exanple: 
%rem = $db->OataSources ; 

print LOG qq(Current DSN'S Remark: ") , %rem{$db->GetOSN> , qqCXn) ; 
Drivers 

Returns an associative array of Drivers and their attributes in the fonn of: 

$ArrayNaine{ 'DRIVER' }= Attribl;Attrib2;Attrib3; .. . 

where DRIVER is the ODBC Driver Name and AttribX are the driver-defined attributes. 

Exair^le: 

%attrib e $db->Drivers ; 

print LOG qq($driver: $attrib{$driver>\n) foreach $driver (keys %attrxb) ; 
DumpError 

Dump to flie screen details about the last error condition. This includes error number, error text and 
ttie ODBC connection number that caused the error (if there is one). This is used primarilv for 
debuggmg. ^ ^ ^ 

Exan^le: 

$db = new Win32 :: ODBC ( "My DSN"); 
if (undef $db) { 

Win32: :ODBC: :DiinpError () ; 

} 

if ($db->Sql ("Select * FROM foo")){ 
$db->DiiinpError ; 

} 

DumpData 

Dump to the screen all field names and the data in all rows of the current dataset This is used 
pnmanly for debuggiag. 

Exair^le: 

$db->Sql{ "Select * FROM foo") ; 
$db-^HmpData ; 



Error 



Returns the last recorded error in the form of an array or string (depending upon the context) 
contaimng the error number, error text and the ODBC connection that caused the error (if there is 



one) 

Exair^le: 

die $db->Error() , qq(\n) ; 

($ErrNum, $ErrText, $ErrConn) = $db->Error () ; 

FetchRow 



Fetehes the next row of data from the previous specified SQL statement. You would then call Data 
orDataHash to actually retrieve the individual elements of data. Returns undef if there's an eiroE" 
TRUE otherwise. 

Example: 

$db->Sql(n SELECT * FROM foo") ; 

$db->FetchRow() || die qq (Fetch error: ), $db->Error() , qq(\n) ; 
$fl = $db->Data("fl") ; 
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See also: Sgl, Data, DataHash 
FieldNames 

Returns a list of field names extracted from the current dataset. This is used mosUy for 
testmg/debugging. FieldNames returns the data in an array, with no guarantee of the order of the 
names. 

Example: 

$db->Sql(" SELECT * FROM foo") ; 
$db->FetchRow ( ) ; 

foreach $fd ($db->FieldNaines () ) print qq($fd: ") , $db->Data($fd) , qq<"\n) ; 

GetConnections 

Returns an array of connection numbers for all objects. 

Exan^jle: 

gcnums = $db->GetConnections; 

GetDSN 
GctDSN conn 

Returns the DSN (Data Source Name) or the ODBCDriverConnect string for the connection conn or 
the current connection if not specified. 

Example : 

print LOG qq(Current connection: ") , $db->GetDSN, qq("\n) ; 

GetMaxBufSize 

Returns the current maximum single field data size, in bytes. 

Exan^le: 

$inax = $db->GetMaxBiifSize; 

$db->SetMaxBufSize($needed) if ($max < $ needed) ; 

See also: SetMaxBufSize 
GetStmtCloseType 

Returns the current ODBC close type setting. This is used mainly for debugging. Type will be one 
of: SQL^CLOSE, SQL_DROP, SQL_UNBIND, or SQL_RESET_PARAMS. See 
SetStmtCloseTvpe for more info on what each of the types mean, and how they are used. 

Exait^le: 

$oldct e $db->GetStmtCloseType; 
$db->SetStmtCloseType(SQL_DROP) ; 

$db->SetStmtCloseType ($oldct) ; 

See also: SetStmtCloseTvpe 
MoreResuIts 

Sees if more result sets are present and initializes for fetching rows from next result set. You would 
then call FetchRow to actually fetch the next row of the next result set. Returns undef if there's an 
error, TRUE otherwise. 

Exait^le: 

$db->Sql( "SELECT * FROM foo\n SELECT ♦ FROM bar") ; 
$db->FetchRow() || die qq( Fetch error: ), $db->Error{) , qq(\n) ; 
$fl = $db->©ata("fl") ; 

$db-^ddreResults() || die qq (Error checking for more result sets : ) , $db->Error 
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$db->FetchRow() II die qq (Fetch error: ), $db->Error() , oaCVn) • 

See also: Sgl, Data 

new Wm32::ODBCpSN) 

new Wm32::ODBC(ODBCDriverConnect) 

Creates a new ODBC object, given a DSN (Data Source Name) or a properly formatted 
ODBCDnverConnect string. Returns the created ODBC object or utidef if there is an error. 

Example: 

$DSN = "MyDSN"; 

$db = new Win32: : ODBC ($DSN) ; 

die qq (Cannot open new ODBC\n) if ! $db; 



$db e new Win32: : ODBC ("dsn=FOO;t7ir>=Bi« ;PWD=FUBAR") ; 
die qq (Cannot open new ODBC\n) if f $db; 

RowCount 

Returns the number of rows that were affected by the previous SQL command. Note: This does not 
work on all ODBC connections. 

Example: 

$db->Sql ("SELECT * FROM foo") ; 

print DBG q(# of records: ), $db->RowCoiint() , qq(\n) ; 

Run stmt 

Submit the SQL statement stmt and print data about it. This is used only in debugging. 

Example: 

$db->Run(" SELECT * FROM foo") ; 

See also: Sgl 
<!C- 
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Type">SetStmtCloseType type 

Sets the current ODBC close type setting used by the ODBC Manager. This is used mainly for 
debugging. Normally, when you open a statement handle and perfonn a query (or whatever) the results are 
associated with the statement You need to free the statement m order to execute another query. When you 
do this, usually the dataset (from the query) is cached. This caching action may be good for speed but could 
cause some memory problems if your dataset is huge. See the ODBC API call SQLFreeStmt(hstmt, 
option) for more details. (All of this is handled automatically by the Win32::ODBC package). 

Type will be one of: 

• SQL_CLOSE - just close the statement (use caching) 

• SQL DROP - close and drop all results (do not use caching) 

• SQLJJNBIND - close and remove bindings to columns (odbc.pU does not bind vars to columns) 

• SQL_RESET_PARAMS - close and reset all of the bound parameters (such as type casting for 
columns; see SQLFreeStmtQ) ■ 



Example: 

$oldct = $db->GetStmtCloseType; 
$db->SetStmtCloseType(SQL_pROP) ; 

$db->SetStmtCloseType($oldct) ; 

See also: GetStmtCloseType 
ShutDown 

Closes the ODBC connection and print data about it. This is used only in debugging. 



Example : 
$db->Shutdown ; 



See also: Close 



Sql stmt 

Executes the SQL command stmt. Returns undef on success, SQL error code on failure. 

Example: 

$stnit = "SELECT * FROM foo"; 
$rc = $db->Sql($stmt) ; 

die qq(SQL failed "$stmt": ), $db->Error ( ) , qq(\n) if $rc; 

See also; Error 



TableList 

TableList qualifier, owner, name, type 

Retrieves the list of table names from the current ODBC object using Catalog . If not specified, 
qualifier and owner default to name defaults to "%", and table defaults to "TABLE'". TableList returns 
an array of table names. Note: All fieldnames are uppercase! 



Example: 

e tables = $db->TableList; 



See also: Catalog 



Examples 
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^e^^^XS!^m<S/?^ Casadonte. Please let me if something is wrong or does not make sense. Send 

mese or otner comments to: ioc@netaxs.com . 

Win32: :ODBC 



The Win32::ODBC FAQ is now available! (be patient, it is still under construction) 

Contents 

Parti 

• Module Description 

• Busmess Stuff 

o Latest Version 
o Copynght Notice 
o Ehsclamier 

o GNU General Public License 
o Larry Wall's "Artistic License" 

• Version History 

o Author List 

• Features/Limits 

• Installation Instructions 

• Bug Reports 

• Latest Versions 

• For More Information on Perl 

Part II 

• Creating an ODBC Object 

• Ubiect Methods 

o CatalogQ 

o Connection^) 

o CloseO 

o DataQ 

o DataHashO 

o DataSourcesO 

o DnversQ 

o DumpErrorO 

o DumpDataO 

o ErrorO 

o FetchRowQ 

o FieldNamesO 

o GetConnectionsQ 

o GetPSNQ 

o GetStrntCloseTvpeQ 

o GetMaxBufSizeO 

o MoreResultsQ 

o newQ 
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" RowCountO 
o RunO 

» SetMaxBufSizef) 
" SetStrntCloseTyp eO 
° Shutdown^ 

o TableListO 
• Examples 



Module Description 
Business Stuff 

ODBC extension for Win32 PERL 
Latest version: Version 96101 1 
by Dave Roth (rothd@roth.net ) 
Courtesy of Roth Consulting . 

Based on code by Dan DeMaggio (dmag@umich.edu) - Thanks Dan! 
Copyright 

Copyright © 1 996 Dave Roth. All rights reserved. 

This program is free software; you can redistribute it or modify it under the same teims as PERL itself. 
Disclaimer 

I do not guarantee ANYTHING with this package. If you use it you are doing so AT YOUR OWN RISK/ 1 
may or may not support this depending on my time schedule aLlam neithir an ODBCmrSQL^^^ 
do not ask me questions regarding them! . ^ ^ 

GNU General Public License 

GNU Library General Public License - GNU Project 
Larry Wall's "Artistic License" 

Artistic License 



Version History 

ODBCPM 



of 5 



3/20/98 2:22 P 



Win32::ODBC 

^ % fiIe:///F|/peri/ODBC/DOCS/ODBO-5.HT 



Date 


i\ r^hanoAC ' ^ 


Qfi 07. ?7ijiiutiai Relearr trr\thA\ 

Of o/| (>f{iFlianged to accept an array oi iieid names, retiunrng an an-afor scalarTi"(i^)" 1 


i[Various bug fixes (joc) J 
96.04. iqiFixed the RowComno to detauit to ttic cuiirenTc^ (droth) 


96.04. ISijChanged version numbers to a date fonnat (rothd) " ■{ 


96.05.07 


Jr^H " ^ T^y' the array consisted ot the requested f ieldnames + tite vali^ 
M^"^ returns the values. Thanks to Dan Westerlund <westerlund@dkraft.se>i (rothd) 


96.07.22 


jAdded MoreResultsQ: Checks to see it there are any more reconis that have not been~ieei^ 


96.07.22) 


junanged ^r^: uirors are ttacked dillerently now. My error wiU record the error numbef i 

KSErrNum) and OTor text ($ErrText) m the object's name space and can be retrieved by calling 
l$Database->ErTorO. ErrorQ wiU also return the ODBC connection number that caused the error 
if the context of the caU is not an array then a string with this information will be returned The * 
Wm32::ODBC name space wiU always have the last error info made, even if it is an error 
retumed by the new method. You can call Win32::ODBC::EirorO to get that (rothd) 
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Date 


Changes 


96.04.10 


1 ?ued a "memory bug": we were usmg isQL CLOSE when closmg an ODBC statement This"" 
i kept ttie cursor ahve m memory so it can be cached in the event the same SOL statement is 
f issued. We are now using SQL_DROP. This may lessen speed if the same SQL statements are 
Ijissuedagam and agam per connection, (rothd) 


1 Cleaned un ^nmf* rnH^* frf\fhA\ == 


96.04.12 


Added" Gets totciosefvD^ and SetStmtCloseTypeO functions, (rothd) 


jAdded some constants, (rothd) ) 


96.04.13 


' We now are tiymg to mciude a version tor tiiudlds up to and mcluding "lOS and another for 
jbuilds 106 and greater (for now). 


96.04.15] 


fix Bug m ODBCFetchRowg: when refrievmg a field with a NULL value the value from tibe 
previous field was reported, ^mk) 


Changed version numbers to a date format. " "" j 


96.04.22! 


Fix the SDWORD wrap-around bug m ODBCFetchRowQ: when a column of size 2147483647 t 
f^^^^'^^l^p^^^^^ in szBuO yields -2 1 47483648 (not easy to "net UCHAR | 


96.04.22! 


^Sd)^ J"tta, I have mcreased the max Umit for SetMaxBufSizeO to 2,147,483.647 bytes7~| 


96.05.03 

j 


¥^ J?^!?/^^^^ allocated char array to be 20 bytes in ODBCFetohRowO- Evidentally sometimes 1 
Uie ODBC manager will report too few chars that are needed to represent an autonumber field 
[rothd) j 


r 

96.05.08! 


Uonvert all results from ODBCTableListO to uppercase since dili'erent ODBC driver? 1 
imphment this differently (some uppercase some lower). Thanks again to Jutta M Klebe 
rothd) 

*** This patch is open for suggestions! ! ! *** j 


96.07.221' 


\dded ODBCMoreResultsQ: Checks to see if" there are any more records that have not been i 
letneved. (dunfordshore) j 



Author List 
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Abbreviationi 


Name 


£MaU 


rothd 


Dave Kotli i n)thd(^tlLnet 1 


jJoeUasadonte ||joc@netaxs.com 


jmK ijJuttaM.Klebe 


jink@exc.bybyte.de 


duntordshore jjiinan Duntordshoreijbrian dimfordshore@bridge com 



Features/Limits 

Features 

. IJe number of ODBC connections is limited only by memory and ODBC itself 

• ^zJ^l^lTi^^'^^^'' by«s. m can be (if needed) .0 a m« 

• Connections can be opened using a DSN or connection string. 

• Connections can be opened and closed in any order. 

• Catalog (and TableList) functions are supported. 

• Add, modify and remove DNS's. 

• Transactions are sjq)ported (rollback and commit). 

• GetlnfoO is supported. 

• Get/SetCoimectOptionsO is supported. 

• Get/SetStmtOptionsO is supported. 

• The entire SQL xxx constant set is supported. 

Limits 

. ffthe account that the process runs under does not have write permission on the default directorv rfor 

?!S^^iT.^^'^^^^ ^^"7? P^^^^^y "^-^^ during an SQL^SectionO 
I don t think that this IS a problem with the code, more like ODBC. This happ^ because some 
ODBC dnvers need to wnte a temporary file. I noticed this using the MS Jet Engine (Access 

. This has not been optimized for speed nor optimized for memory consumption. TTiis may run into 
memory oloat. •' 

• Release versions are comp 
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# Perl Routines to Manipulate CGI input 

# cgi-lib0pobox.com 

# $Id: cgi-lib.pl,v 2.15 1997/11/18 06:48:25 brenner Exp $ 
# 

# Copyright (c) 1997 Steven E. Brenner 

# Unpublished work. 

# Permission granted to use and modify this library so long as the 

# copyright above is maintained, modifications are documented, * and 

# credit is given for any use of the library. 
# 

# Thanks are due to many people for reporting bugs and suggestions 

# For more information, see: 

# http : //cgi-lib . Stanford . edu/cgi-lib/ 

$cgi_lib' version = sprintf ("%d.%02d", q$Revision: 2.15 $ / {\d+) \ . {\d+) /) ; 

I* 

# Parameters affecting cgi-lib behavior 

# User-configurable parameters affecting file upload. 

$cgi_lib'raaxdata = 131072; # maximum bytes to accept via POST - 2'"17 
$cgi_lib'writefiles = 0; # directory to which to write files, or 

# 0 if files should not be written 
$cgi_lib'filepre = "cgi-lib"; # Prefix of file names, in directory above 

# Do not change the following parameters unless you have special reasons 
$cgi_lib'bufsize = 8192; # default buffer size when reading multipart 
$cgi_lib'maxbound = 100; # maximum boundary length to be encounterd 
$cgi_lib'headerout = 0; # indicates whether the header has been printed 




# ReadParse 

# Reads in GET or POST data, converts it to unescaped text, and puts 

# key/value pairs in %in, using "\0" to separate multiple selections 

# Returns >0 if there was input, 0 if there was no input 

# undef indicates some failure. 

# Now that cgi scripts can be put in the normal file space, it is useful 

# to combine both the form and the script in one place. If no parameters 

# are given (i.e., ReadParse returns FALSE), then a form could be output. 

# If a reference to a hash .is given, then the data will be stored in that 

# hash, but the data from $in and Gin will become inaccessable . 

# If a variable-glob (e.g., *cgi_input) is the first parameter to ReadParse, 

# information is stored there, rather than in $in, Gin, and %in- 

# Second, third, and fourth parameters fill associative arrays analagous to 

# %in with data relevant to file uploads, 

# If no method is given, the script will process both command-line arguments 

# of the form: name=value and any text that is in $ENV{ 'QUERY^STRING' } 

# This is intended to aid debugging and may be changed in future releases 

sub ReadParse { 

local (*in) = shift if @_; # CGI input 

local (*incfn, # Client's filename (may not be provided) 

*inct, # Client's content-type (may not be provided) 

*insfn) = 8_; # Server's filename (for spooled files) 

local ($len, $type, $meth, $errflag, $cmdflag, $perlwarn, $got) ; 

# Disable warnings as this code deliberately uses local and environment 

# variables which are preset to undef (i.e., not explicitly initialized) 
$perlwarn = $^W; 
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= 0; 



biranode(STDIN); # we need these for DOS-based systems 
bininode{STDOUT); # and they shouldn't hurt anything else 
binmode (STDERR) ; 

# Get several useful env variables 
$type = $ENV{ 'CONTENT^TYPE' }; 
$len = $ENV{ ' CONTENT_LENGTH ' ) ; 
$meth = $ENV{ 'REQUEST^METHOD' }; 

if ($len > ?cgi_lib*niaxdata) { #• 

^ &CgiDie("cgi-lib.pl: Request to receive too much data: $len bytes\n"); 

if {'defined $meth || $meth eq ' • || $meth eq 'GET* || 
$type eq 'application/x-www-form-urlencoded' ) { 
local ($key, $val, $i); 

# Read in text 

if {! defined $meth || $meth eq ' ' ) { 
$in = $ENV{ 'QUERy_STRING' }; 

$cradflag =1; # also use command-line options 
) elsif($meth eq 'GET' || $meth eq 'HEAD') { 
$in = $ENV{ 'QUERY_STRING' }; ^ 
} elsif ($meth eq 'POST') { 

if {{$got = read(STDIN, $in, $len) != $len) ) 

{$errflag="Short Read: wanted $len, got $got\n";}; 
} else { 

^ &CgiDie("cgi-lib.pl: Unknown request method: $meth\n") ; 
Gin = split (/[&;] /,$in); 

push (Sin, SARGV) if $cmdflag; # add command-line parameters 

foreach $i (0 $#in) { 

# Convert plus to space 
$in[$i] =^ s/\+/ /g; 

# Split into key and value. 

($key, $val) = split (/=/, $in [$i] , 2) ; # splits on the first =. 

# Convert %XX from hex numbers to alphanumeric 
$key s/%([A-Fa-fO-9]{2))/pack{"c",hex($l))/ge; 
$val =- s/%([A-Fa-fO-9] {2))/pack("c",hex{$l))/ge; 
# Associate key and value 

$in{$key} .= "\0" if (defined {$in{ $key} )) ; # \0 is the multiple separator 
$in{$key) .= $v4l; 

} 

} elsif ($ENV{ 'CONTENT_TyPE' 1 mS'^multipart/f orm-data#) { 

# for efficiency, cort5)ile multipart code only if needed 
$errflag = ! (eval « 'END__MULTIPART ' ) ; 

local ($buf, $boundary, $head, Gheads, $cd, $ct, $fname, $ctype, $blen) ; 
local {$bpos, $lpos, $left, $amt, $fn, $ser) ; 
local ($bufsize, $maxbound, $writefiles) = 

($cgi_lib'bufsize, $cgi_lib'maxbound, $cgi_lib'writefiles) ; 

# The following lines exist solely to eliminate spurious warning messaaes 
$buf = ' ' ; ^ y 
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ishnUnn!''^! " !^^^ /boundary^" ([-•]+)"/; #"; # find boundary 
i?S?n?f " t""^^ /boundary=(\S+)/ unless $boundary; ^ 

&CgiDie ( Boundary not provided: probably a bug in your server") 
unless $boundary; ^ server ) 

$boundary = " . $boundary; 

$blen = length ($boundary); 

if ($ENV{ 'REQUEST_METHOD' ) ne 'POST') { 

^ &CgiDie( "Invalid request method for multipart/form-data: $meth\n"); 

if ($writefiles) { 
local {$me) ; 
Stat ($writefiles); 

$writefiles = "/tirp" unless -d _ && -w ; 
# ($me) = $0 ni#(['^/]*)$#; T 
^ $writefiles .= "/$cgi_lib • filepre"; 

# read in the data and split into parts: 

# put headers in fiin and data in %in 

# General algorithm: 

I K '^^^^^ dividers: the border and the 'XrXnVrXn' between 

# header and body. Iterate between searching for these 

# Retain a buffer of size (buf size+maxbound) ; the latter part is 

# to ensure that dividers don't get lost by wrapping between two bufs 

Look for a divider in the current batch. If not found, then 

# save all of bufsize, move the maxbound extra buffer to the front of 

# the buffer, and read in a new bufsize bytes. If a divider is found, 

# save everything up to the divider. Then empty the buffer of everything 

# up to the end of the divider. Refill buffer to buf size+maxbound 

# Note slightly odd organization. Code before BODY: really goes with 

# code following HEAD:, but is put first to 'pre- fill' buffers. BODY: 

# as placed before HEAD: because we first need to discard any 'preface,' 

# which would be analagous to a body without a preceeding head. 

$left = $len; 

PART: # find each part of the multi-part while reading data 
while (1) { 

die $@ if $errflag; 

$amt = ($left > $buf size+$raaxbound-length ($buf ) 

? $bufsize+Smaxbound-length($buf ) : $left); 
$errflag = ( ($got = read{STDIN, $buf, $amt, length ($buf) ) ) != $amt) ; 
die "Short Read: wanted $amt, got $got\n" if $errflag; 
$left -= $amt; 

$in{$name) .= "\0" if defined $in{$name}; 
$in{Sname) .= $fn if $fn; 

$name=-/([-\w]+)/; # This allows $insfn{$namel to be untainted 
if (defined $1) { 

$insfn{$l} .= "\0" if defined $insfn{$l}; 

$insfn{$l} .= $fn if $fn; 

1 

BODY: 

while (($bpos = index($buf, $boundary) ) == -l) { 
if ($left == 0 && $buf eq { 
foreach $value (values %insfn) { 
unlink (split {"\0",$value) ) ; 
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&CgiDie("cgi-lib.pl: reached end of input while seeking boundary " 
^ "of multipart. Format of CGI input is wrong, \n"); 

die $@ if $errflag; 

if {$name) { # if no $name, then it's the prologue — discard 

if {$fn) { print FILE substr($buf, 0, $bufsi2e) ; ) 
^ else { $in{$name} .= substr($buf, 0, $buf size) ; ) 

?buf = substr($buf, $bufsize) ; 

$amt = ($left > $bufsi2e ? $bufsize : $left); #$ma3cbound==length ($buf ) ; 
?errflag = (($got = read{STDIN, $buf, $amt, length ($buf) ) ) != $amt); 
die "Short Read: wanted $amt, got $got\n" if $errflaa; 
$left -= $amt; 

} 

if (defined $name) { # if no $name, then it's the prologue ~ discard 

if ($fn) { print FILE substr($buf, 0, .$bpos-2); } 
^ else { $in {$name) .= substr($buf/ 0, $bpos-2) ; } # kill last \r\n 

close (FILE); 

last PART if substr($buf, $bpos + $blen, 2) eq " — "; 

substr($buf, 0, $bpos+$blen+2) = "; 

$amt = ($left > $buf si2e+$maxbound-length ($buf ) 

? $bufsize+$maxbound-length($buf ) : $left); 
$errflag = ({$got = read(STDIN, $buf, $arat, length ($buf) ) ) != $amt) ; 
die "Short Read: wanted $amt, got $got\n" if $errflag; 
$left -= Samt; 



undef $head; undef $fn; 
HEAD: 

while (($lpos = index($buf, "\r\n\r\n")) = -1) { 
if ($left == 0 && $buf eq •') { 
foreach $value (values %insfn) { 
unlink (split ("\0",$value) ) ; 

} 

&CgiDie ("cgi-lib: reached end of input while seeking end of " . 
"headers. Format of CGI input is wrong. \n$buf") ; 

die $@ if $errflag; 

$head .= siabstr ($buf , 0, Sbufsize); 
$buf = substr($buf, $bufsize) ; 

$amt = ($left > $bufsi2e ? $bufsize : $left) ; #$maxbound==length ($buf ) ; 
$errflag = ( ($got = read(STDIN, $buf, $amt, length ($buf) ) ) != $amt) ; 
die "Short Read: wanted $amt, got $got\n" if $errflag; 
$left -= $amt; 

) 

$head .= substr($buf, 0, $lpos+2); 

push (Gin, $head) ; 

eheads = split ("\r\n", $head) ; 

($cd) = grep (/''\s*Content-Disposition: /i, gheads); 
($ct) = grep (/'"\s*Content-Type: /i, Qheads); 

($name) = $cd /\bname=" ( ['^"] +) "/i; #"; 

($name) = $cd /\bname= ( [^\s : ; ] +) /i unless defined $name; 

($fname) = $cd /\bfilename=" ([-"]*) "/i; #"; # filename can be null-str 
($fname) = $cd =- /\bfilename= ( ['^Vs : ; ] +) /i unless defined $fname; 
$incfn{$name} ,= (defined $in{$name} ? "\0" : "") . 
(defined $fname ? $fname : ""); 

(Sctype) = $ct =- /'^\s*Content-type: \s*" ([''"]+) "/i; #"; 

{$ctype) = $ct /'^\s*Content-Type:\s* ( ['^\s:;]+)/i unless defined $ctype; 
$inct{$name} .= (defined $in{$name) ? "\0" : "") . $ctype; 
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if {$writefiles && defined $fname) { 
$ser++; 

$fn = $writefiles . ".$$.$ser"; 

open (FILE, ">$fn") || fcCgiDie ( "Couldn • t open $fn\n") - 
^ binmode (FILE); # write files accurately 

substr($buf, 0, $lpos+4) = 
undef $fnanie; 
undef $ctype; 

} 

1; 

END_MULTIPART 

if ($errflag) { 

local ($ernnsg, $ value ) ; 
$ernasg = $@ | | $errflag; 
foreach $value (values %insfn) { 
unlink ( split ( " \ 0 " , $ value ) ) ; 

} 

fiCgiDie ($errmsg) ; 
) else { 

# everything's ok. 

} 

} else { 

^ &CgiDie("cgi-lib,pl: Unknown Content-type: $ENV{ •CONTENT_TYPE' }\n") ; 

# no-ops to avoid warnings 
$insfn = $insfn; 
$incfn = $incfn; 
$inct = $inct; 

$'^W = $perlwarn; 

return ($errflag ? undef : scalar (gin) ) ; 



# PrintHeader 

# Returns the magic line which tells WWW that we're an HTML document 

sub PrintHeader { 

return "Content-type: text/html\n\n"; 

} 

# HtralTop 

# Returns the <head> of a document and the beginning of the body 

# with the title and a body <hl> header as specified by the parameter 

sub Html Top 
{ 

local ($title) = e_; 

return «END_OF_TEXT; 
<htinl> 
<head> 

<title>$title</title> 

</head> 

<body> 

<hl>$title</hl> 
END OF TEXT 
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# HtmlBot 

# Returns the </bociy>, </html> codes for the bottom of every HTML page 

sub HtmlBot 
{ 

^ return "</body>\n</html>\n"; 

# SplitParam 

# Splits a multi-valued parameter into a list of the constituent parameters 

sub SplitParam 
{ 

local ($param) = @_, 



} 



local (Qparams) = split ("\0", $param) ; 
return (wantarray ? Gparams : $params[0]) 



# MethGet 

# Return true if this cgi call was using 

sub MethGet { 

return (defined $ENV{ 'REQUEST_METHOD' } 



the GET request, false otherwise 

&& $ENV{ 'REQUEST^METHOD' } eq "GET") ; 



# MethPost 

# Return true if this cgi call was using 

sub MethPost { 

return (defined $ENV{ •REQUEST_METHOD' } 



the POST request, false otherwise 

&& $ENV{ *REQUEST_METHOD' } eq "POST"); 



# MyBaseUrl 

local ($ret, $perlwarn) 
$perlwarn = $^W; S'^w = 0; 

$ret = 'http://' . $ENV{ • SERVER_NAME ' } . 

($ENV{ 'SERVER^PORT' } != 80 ? ": $ENV{ 'SERVER PORT'}" • 
$ENV{ • SCRIPT_NAME ' } ; ~ 
= $perlwarn; 
return $ret; 

) 



# MyFullUrl 

suS^MyFulli^! "^"^ '''' ^"^^"^ ""^""^ ^""^^ ^^^^ ^^^y 

local ($ret, $perlwarn) ; 
$perlwarn = S'^W; $'^w = 0; 

$ret = 'http://' . $ENV{ •SERVER_NAME ' ) . 

($ENV{ •SERVER_PORT' } != 80 ? ": $ENV{ ' SERVER PORT'}" - 
$ENV{'SCRIPT_NAME' } . $ENV{ ' PATH_INFO ' } . ~ 

(length ($ENV{ 'QUERY STRING'}) ? "?$ENV{ 'QUERY STRING' 1" • 'M- 
= $perlwarn; ~ ^ ^ - / . ; , 

return $ret; 
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} 



# MyURL 

Returns the base URL to the scriot (± e no Rxt-r^* t^=>4-k 
This is Obsolete and will be rSo^ed In-iaSr Jer^i^^s °' ^""^ 



sub MyURL { 

return &MyBaseUrl; 

} 

# CgiError 

I ^r^up/:^c:ter"°' "'^'"^ containes appropriate headers, 

# Parameters: 

# If no parameters, gives a generic error message 

# Otherwise, the first parameter will be the' title and the rest will 

# be given as different paragraphs of the body 

sub CgiError { 

local (gmsg) = @_; 
local ($i,$name); 

if (!@msg) { 

$name = &MyFullUrl; 

@msg = ("Error: script $name encountered fatal error\n"); 

} / 

if ( !$cgi_lib'headerout) { #•) 

print fiPrintHeader; 
^ print "<html>\n<head>\n<title>$msg[0] </title>\n</head>\n<body>\n"; 

print "<hl>$msg[0]</hl>\n"; 
foreach $i (1 $#msg) { 
^ print "<p>$msg[$i]</p>\n"; 

$cgi_lib • headerout++; 



# CgiDie 

# Identical to CgiError, but also 

sub CgiDie { 
local (@msg) = 
&CgiError (gmsg); 
die @msg; 



quits with the passed error message. 



# PrintVariables 

# Nicely formats variables. Three calling options- 

# A non-null associative array - prints the items in that array 

# A type-glob - prints the items in the associated assoc- array ^ 

# nothing - defaults to use %in 

# Typical use: & PrintVariables ( ) 

sub PrintVariables { 

local (*in) = e_ if == i; 
local (%in) = e_ if e_ > i; 
local ($out, $key, $output); 



^j^tpy/cgi-Ub.stanford.edu/cgi -lib/2. 15/^^^ 

$output = "\n<dl coinpact>\n"; 
foreach $key (sort keys(%in)) { 

foreach (split ("\0", $in{$key})) { 
($out = $_) s/\n/<br>\n/g; 

$output .= "<dt><b>$key</b>\n «ld>:<i>$out</i>:<br>\n"; 

) 

$output .= "</dl>\n"; 
return $output; 

) 

# PrintEnv 

# Nicely formats all environment variables and returns HTML string 
sub PrintEnv { 

fiPrintVariables (*ENV) ; 

1 ^ 



# The following lines exist only to avoid warning messages 
$cgi_lib'writefiles = $cgi_lib 'writefiles; 
$cgi_lib'bufsize = $cgi_lib'bufsi2e ; 
$cgi_lib 'maxbound = $cgi_lib 'maxbound; 
$cgi_lib' version = $cgi_lib • version; 
$cgi_lib • f ilepre = $cgi_lib • f ilepre; 

1; #return true 
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Mini SQL 2.0 

Beta 

Language Specification 



Introduction 



The mSQL language offers a significant subset of the features provided by ANSI SQL It allows 
a program or user to store, manipulate and retrieve data in table stractures. It does not support 
some relational capabilities such as views and nested queries. Although it does not support all the 
relational operations defined in the ANSI specification, it does provide flie capability of "ioins" 
between multiple tables. r / j 

The definitions and examples below depict mSQL key words in upper case, but no such 
restriction is placed on the actual queries. 



The Create Clause 

Tbe create clause as supported by mSQL 2 can be used to create tables, indices, and sequences. It 
cannot be used to create other definitions such as views. The three valid constmcts of the create 
clause are shown below: 



CREATE TABLE table_name ( 

col_name coljype [ not null ] 
^ [,col_namecol_type[ not null]]** 

CREATE [ UNIQUE ] INDEX index_name ON table_name ( 
fieldname 
[,field_name] ** 



CREATE SEQUENCE ON table_name [ STEP step_val ] [ VALUE initial_val ] 



An example of flie creation of a table is show below: 



CREATE TABLE emp_details ( 
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first_name char(15) not null, 
lastjiame char(l 5) not null, 
comment text(50), 
dept cliar(20), 
emp_id int 



The available types are:- 

: char (lOTjjStnng o^^^^ 

: text OeSy:[VmabTe*Tmg£^ i 

: iidefined lengfli is used to indicate the expected average length of i 

ijthe data. Any data longer than the specified length will be split : 
: iibetween the data table and external overflow biSfers. ; 

: iiNote : text fields are slower to access than char fields and cannoti 

: :ibe used in an index nor in LIKE tests. • 
: mf '^^^cS mteger values j 

: real jiDecimal or Scientific Notation real values i 



The table structure shown in the example would benefit greatly from the creation of some indices. 
It is assumed that the empjd field would be a unique value that is used to identify an employee. 
Such a field would normally be defined as the primary key. mSQL 2.0 has removed support for 
the primary key constmct within the table creation syntax although the same result can be 
achieved with an index. Similarly, a common query may be to access an employee based on the 
combination of the first and last names. A compound index (i.e. constructed from more than 1 
field) would improve performance. We could construct these indices usmg : 



CREATE UNIQUE INDEX idxl ON emp_details (empJd) 
CREATE INDEX idx2 ON emp_details (first_name, last_name) 



These indices will be used automatically whenever a query is sent to the database engine that uses 
those fields in its WHERE clause. The user is not required to specify any special values in the 
query to ensure the indices are used to increase performance. 



Sequences provide a mechanism via which a sequence value can be maintained by the mSQL 
server. This allows for atomic operations (such as getting the next sequence value) and removes 
the concerns associated with performing these operations in client applications. A sequence is 
associated with a table and a table may contain at most one sequence. 

Once a sequence has been created it can be accessed by SELECTing the _seq system variable 
from the table in \\1iich the sequence is defined. For example 

CREATE SEQUENCE ON TABLE test STEP 1 VALUE 5 
SELECT _seq FROM test 

The above CREATE operation would define a sequence on the table called test that had an initial 
value of 5 and would be incremented each time it is accessed (i.e. have a step of 1). The SELECT 
statement above would return the value 5. If the SELECT was issued again, a value of 6 would be 
returned. Each time the _seq field is selected from test the current value is returned to the caller 
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and the sequence value itself is incremented. 

Using the STEP and VALUE options a sequence can be created that starts at anv soecified 
d^l"?.^ ^ maremented or deciementS by any specified value. Th^TaSe^f^a ?SSnce would 
decrease by 5 each time it was accessed if it was defined with a step of -5. 



The Drop Clause 

^ Drop chuse is used to remove a definition from the database. It is most commonly used to 
[f^n^l* * database but can also be used for removing several other constructs. In 2 0 

It can be used to remove the defimtion of an index, a sequmce, or a table. It should be noted that 
dropping a table or an mdex removes the data associated with that object as well as the definition. 

The syntax of the drop clause as well as examples of its use are given below. 



DROP TABLE table_name 

DROP INDEX index_name FROM table name 

DROP SEQUENCE FROM table_name ~ 



for example 



DROP TABLE emp_details 

DROP INDEX idxl FROM emp details 

DROP SEQUENCE FROM emp~details 



The Insert Clause 

Unlike ANSI SQL, you cannot nest a select within an insert (i.e. you cannot insert the data 
returned by a select). If you do not specify the field names they wiU be used in the order th( 
were defined - you must specify a value for every field if you do this 



INSERT INTO table name [ ( column [ , column 1** ) 1 
VALUES (valUe [, value]** ) 

for example 

INSERT INTO emp_details 

(firstname, last_name, dept, salary) 

VALUES CDavid', ^Hughes', 'Development','12345') 

INSERT INTO enq>_details 

VALUES CDavid'. 'Hughes', 'Development','12345') 

Hie number of values supplied nmst match the number of columns. 



The Select Clause 

The SELECT offered by mSQL lacks some of flie features provided by the standard SQL 
specification. Development of mSQL 2 is continuing and some of this missing functionality will 
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be made available in the next beta release. At this point in time. mSQL's select does not provide 

♦ Nested selects 

' • Implicit functions (e.g. countO, avgQ ) 

It does however support: 

♦ Joins - including table aliases 

♦ DISTINCT row selection 

♦ ORDER BY clauses 

♦ Regular expression matching 

♦ Column to Column comparisons in WHERE clauses 

♦ Complex conditions 

The formal definition of (he syntax for mSQL's select clause is 



1** 



SELECT [table.]column [ , [table.Jcolumn ]** 
FROM table [ = aUas] [ , table [ = alias] Y 
[ WHERE [table.] column OPERATOR VALUE 

[ AND I OR [table.]column OPERATOR VALUE]** ] 
[ ORDER BY [table.]column [DESC] [, [table.]column [DESC] ] 

8 A??^^^^ ^ ^' ^' " ^= ^DCE or CLKE 

VALUE can be a literal value or a col umn name 

Where clauses may contain '(' ')' to nest conditions e.g. "v/here (age < 20 or ace > 
30) and sex = 'male"* . . v o & 

A simple select may be 

SELECT first name, last name FROM emp details 
WHERE dept = Tmance' 

To sort die returned data in ascending order by last name and descending order by first name the 
query would look like this 

SELECT first_name, last_name FROM emp details 
WHERE dept = Tmance' 
ORDER BY last_name, fu^t_name DESC 

And to remove any dupUcate rows from the result of the select, the DISTINCT operator could be 
used: 

SELECT DISTINCT first_name, last name FROM emp details 
WHERE dept = 'finance' 
ORDER BY last_name, first_name DESC 

mSQL provides three regular expression operators for use in where comparisons. The standard 
SQL syntax provides a very simplistic regular expression capability that does not provide the 
power nor the flexibility UNIX programmers or users will be accustomed to. mSQL supports the 
standard SQL regular expression syntax, via the LIKE operator, but also provide further 
functionahty if it is required. The available regular expression operators are: 

♦ LIKE - the standard SQL regular expression operator. 

♦ CLKE - a standard LIKE operator &at ignores case. 

♦ RLDCE - a complete UNIX regular expression operator. 

Note : CLIKE and RLDCE are not standard SQL and may not be available in other 
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implementations of the language if you decide to port your application They are 
However very convenient and powerful features of mSQL. 

matches any single character 
' %' matches 0 or more characters of any value 
A' escapes special characters (e.g. matches % and AV matches \ ) 

all other characters match themselves 

As m example of the LIKE operator, it is possible to search for anyone in the finance department 
whos last name consists of any letter followed by ughes', such as Hughes. The query to perforai 
this operation could look like n / ±^ ^ 

SELECT firstname, lastname FROM empdetails 

WHERE dept = Tinance' and last_name like '_ughes' 

Hie RLKE operator provides access to the power of the UNIX standard regular expression 
syntax. The UNIX regular expression syntax provides far greater functionality than SOL's LIKE 
syntax. The UNIX regex syntax does not use the '_' or •%' characters in the way SOL's reeex 
does (as outbned above). The syntax available in the RLIKE operator is 
'.' matches any single character 



When used as the first charactr in a regex, the caret character forces the 
match to start at the first character of the string 

•$' When used as the last charactr in a regex, the dollar sign forces the 
match to end at the last character of the string 

*[ ]' By enclosing a group of single characters withing square brackets, the 
regex will rnatch a single character from the group of characters. If the 
T character is one of the characters you wish to match you may specifiy 
it as the first character in the group wifliout closing the group (e.g. 
'Qabc]' would match any single character that was either ']\ 'a', V, or 'c"). 
Ranges of characters can be specified within the group using the ' 
•first-last' syntax (e.g. '[a-zO-9]; would match any lower case letter or a 
digit). If the first charactr of the group is the character the regex will 
match any single character that is not contained within the group. 

'*• If any regex element is followed by a '*' it will match zero or more 
instances of the regular expression. 

The power of a relational query language starts to become apparent when you join tables together 
durmg a select operaUon. Lets say you had two tables defmed, one containing staff details and 
another listing the projects being worked on by each staff member, and each staff member has 
been assigned an employee number that is unique to that person. You could generate a sorted list 
of M^o was working on what project with a query like: 

SELECT emp_details.first_name, emp_details.last_name, projectdetails.project 
FROM emp details, project details 
WHERE emp_details.anp_id = project_details,emp_id 
ORDER BY emp_details.last_name, emp_details.first_name 

mSQL places no restriction on the number of tables "joined" during a query so if there were 15 
tables all containing information related to an employee ID in some manner, data from each of 
those tables could be extracted, by a single query. One key point to note regarding joins is that 
you must qualify all column names with a table name. mSQL does not support the concept of 
umquely named columns spanning multiple tables so you are forced to qualify every column 
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name as soon as you access more than one table in a single select. 

mSQL also supports table aliases so that you can perfonn a join of a table onto itself. This may 
appear to be an unusual thmg to do but it is a very powerful feature if there are rows within a 
smgle table relate to each other in some way. An example of such a table could be a list of people 

mcludmg the names of their parents. In such a table there would be multiple rows with a 
parent/child relationship. Using a table aUas you could find out any grandparents contained in the 
table usmg something like 

SELECT 1 1 .parent, t2,child fi-om parent_data=t 1 , parent data=t2 
v/here tl .child = t2.parent 

The teWe aliases tl and t2 both point to the same table (parent_data in this case) and are treated as 
two different tables that just happoi to contain exactly the same data. 



The Delete Clause 



The SQL DELETE constmct is used to remove one or more entries fi-om a database table The 
selection of rows to be removed from the table is based on the same where constmct as used h^ 
the SELECT clause. The syntax for mSQL's delete clause is 

DELETE FROM table_name 

WHERE column OPERATOR value 

[ AND I OR column OPERATOR value ]** 



OPERATOR can be <, >, = <= >= o, LIKE, RLKE, or CLIKE 
for example 

DELETE FROM emp_details WHERE empjd = 12345 



The Update Clause 

The SQL update clause is used to modify data that is akeady in the database. The operation is 
carried out on one or more rows as specified by the where constmct. The value of any number of 
fields on the rows matching the where construct can be updated. mSQL places a limitation on the 
operation of flie update clause in that it cannot use a column name as an update value (i.e. you 
cannot set the value of one field to the current value of another field). Only literal values may by 
used as an update value. The syntax supported by mSQL is 

UPDATE table_name SET column=value [ , column=value ]** 
WHERE column OPERATOR value 

[ AND I OR cohmm OPERATOR value ]** 

OPERATOR can be <, >, = <= >= o, LIKE, RLIKE or CLIKE 
for exan^le 

UPDATE emp_details SET salary=30000 WHERE empJd = 1234 
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